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