while(a:?read(?-,?-,0))#0 do printf(?t,"~a
",ssubst(" ","-",printf(?-,"~r",a)));