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

parameter unit;
storage unit;
code { DROP; PUSH bool True; LOOP {PUSH bool True}; UNIT; NIL operation; PAIR }