deployCode name withConstructor = YulCode $ [yulBlock|
  {
    mstore(64, memoryguard(128))
    let memPtr := mload(64)
  }
  |]
  <> callConstructor withConstructor
  <> [yulBlock|
     { datacopy(0, `dataoffset`, `datasize`)
       return(0, `datasize`)
     } |]
  where
    cname = yulString name
    callConstructor True = pure [yulStmt| usr$constructor() |]
    callConstructor False = []
    datasize = [yulExp| datasize(${cname}) |]
    dataoffset = [yulExp| dataoffset(`cname`) |]