( @check 44 44 44 44 )

0 begin 44 print 1 + dup 4 -1 nand 1 + + if 0 else -1 then until drop