read-num
dec
range1
m:
    "*"
    times #(list)
    @4
    rjust
    init
    @1
    new-line
}
( "G*F" )
@3
inc
rjust