CREATE DST
5 ALLOT
65 DST C!
66 DST 1+ C!
67 DST 2 + C!
68 DST 3 + C!
69 DST 4 + C!
DST DST 1+ 4 MOVE
DST 5 TYPE CR
DST 5 88 FILL
DST 5 TYPE CR
DST 5 ERASE
DST C@ . CR
DST 1+ C@ . CR
DST 2 + C@ . CR
DST 3 + C@ . CR
DST 4 + C@ . CR
0 BYE
