#!perl -ln
/i/||$.--;/d/&&$.&&$.--;/s/&&($.*=$.);$.-256||($.=0);/o/&&print $.;/h/&&last