sub prtln  { local $,="";   print +( @_ ? @_ : $_ ), "\n" }
 sub prtlns { local $,="\n"; print +( @_ ? @_ : $_ ), "\n" }