#!perl -pl
$;=s/!//g;$%=$_;$_*=$%-=$;while$%>$;