read-num
range1
dup
m:
    2dup
    take
    unwords
    show-line
    rrot
    drop