sub pront { print @_,"\n"; }