( 0:?i
&   whl
  ' ( 1+!i:~>10:?i
    &   put
      $ ( str
        $ ( !i
            (mod$(!i.5):0&\n|", ")
          )
        )
    )
);