: c
cls
3
begin
dup
dup
19 /
swap
19 mod
over over
18 swap -
at 42 emit
at 42 emit
6 +
dup
361 >
until
;