2 lines
59 B
Factor
2 lines
59 B
Factor
|
0 [ dup 6 mod 0 = not ] [ [ . ] [ 1 + ] bi ] do while drop
|