push@_,$j=<>,<>;while(chop$j){chomp,print chop for@_;print"\n"}