print chr(20*$2+$3)x($1+1).($4==1?"\n":"") while /\D*?([-\d]+)\D+?([-\d]+)\D+?([-\d]+)\D+?([-\d]+)/g;