Eurgh, why do I do this... Thought the algorithm was good, but evidently not. Can't see anything else to do except try a self-extracting compressed thing, which I can't be bothered with...
#!perl -lp
$~=$,="";1while s# ?\b(\S.)\S*$#($_=$&)=~/ed/&&($,=substr("00$~",-2).$,,$~="");/ho|il/&&($}=",000"x(/s/?1:/m/?2:3),$,=$}|substr((" "x20).$~.$,,-length$}),$~="");$}=index('zeontwthfofisiseeiniteel',$1)/2,$~+=/lv/?12:/y$/?$}*10:/ee./?$}+10:$},""#e;$_=$~.$,
|