RosettaCodeData/Task/Loops-N-plus-one-half/Factor/loops-n-plus-one-half.factor

: print-comma-list ( n -- )
    [ [1,b] ] keep '[
        [ number>string write ]
        [ _ = [ ", " write ] unless ] bi
    ] each nl ;