in
getMallocvilleAddr `thenBc` \ addr ->
-- Get the addr on the stack, untaggedly
returnBc (unitOL (PUSH_UBX (Right addr) 1), 1)
in
getMallocvilleAddr `thenBc` \ addr ->
-- Get the addr on the stack, untaggedly
returnBc (unitOL (PUSH_UBX (Right addr) 1), 1)