$i=??+$j-($a[$_*21%55]=$j=$i)for 34..88;$f[$a[@a]=($a[-55]-$a[-24])%100]-=$_>0for-110..<>;print$_,v9,-$f[$_],$/for 0..99