0 [ dup 6 mod 0 = not ] [ [ . ] [ 1 + ] bi ] do while drop