#!perl -pl
$}=y/!//d;$r=$_;$_*=$r-=$}while$r>$}