1 10 [a,b] [
    [ number>string write ]
    [ 5 mod 0 = "\n" ", " ? write ] bi
] each