$c=109;for(split//,"
         /
      ++++++
  ++o-------=++   ++
++_--------------<+
  ++,+++++++++    +/
     --------     --
        -/           "){/\s/?():/[\-\+]/?eval"\$c$_$_":print chr($c)}