#0        1         2         3         4         5         6       
#123456789012345678901234567890123456789012345678901234567890123456789

for$i(@x=map$_*4+$_[0]%4,0..9){map{print$i,2-$_%40,"-$_[0]\n"}@x}