RosettaCodeData/Task/Loops-Continue/Forth/loops-continue.fth

: main
  11 1 do
    i dup 1 r.
    5 mod 0= if cr else [char] , emit space then
  loop ;