$<.map{|s|puts"%-#{%w[ $\
 ][N||=s.ord%4].bytes*'s%-'}s".%s.scan /[^`
]+/}