ligo/src/proto_alpha/lib_protocol/test/contracts/transfer_to.tz

parameter (contract unit);
storage unit;
code { CAR; DIP{UNIT}; PUSH mutez 100000000; UNIT;
       TRANSFER_TOKENS;
       NIL operation; SWAP; CONS; PAIR};