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