6 2 300{dup =only(:)print 3 2 2 index 2 idiv{2 copy sub 2{true 3 2 4 index 1
sub{3 index exch mod 0 ne and}for}repeat and{exch(+)exch( )4{=only}repeat[[}if
def}for()=}for
Note that non-ascii characters in the above source code will be escaped (such as \x9f).