S" \ ]litnu[ =0 pud time @ + pud2 -1 ]nigeb[ rc epyt pud2 ! kcip 2 352202C5$ -d 3- 3
3 -3 d- $5C202253 2 pick ! 2dup type cr [begin] 1- 2dup + @ emit dup 0= [until] \ "S