read-num
dec
range1
m:
    "*"
    times #(list)
    @4
    rjust
    init
    @1
    new-line
}
( "COBOL" )
@3
2
+
rjust