$a[0]=$|=print@a=(0)x10,$/;$Y=$_=<>;(print@a,$/),($_=<>)>$Y?$Y=$_+!++$i:$_<$Y&&--$a[$i++],++$a[$i]until/u/