#!perl -lp $i=$<;print$%+=$.*($i/=2)+.5,$",chr 61-($.=$_<=>$%)while$.;$%=$_=""