%z=(sn,[' __ ',qw{(oo) (~~) /__\\}],ng,[' o ','/:\\','\\:/',' ^ '],tr=>['  /\\  ',' /,,\\ ','/,,,,\\','  ||  '],dl,[' )) ','((.)',' || ',' || '],car,[$"x6,'  __  ','_/_L\\_','o----o'],dd,['  _  ',' o.o ','=(.)='," ! ! "]);for(<>){for$i(0..3){for(split/,/){$r=/\d+/?$&:1;for$k(keys%z){/$k/i&&print+($z{$k}->[$i].$")x$r}}print$/}print$/}