#!/usr/bin/perl -w
$_=$0;s|.*\W||;sub K{s;[^a-z\n ];"/".ord($&)."j";ge;y; 0-9k-uyo/jv-xz
;`ja-|;d;s\.\for($O=0,$o=-96+ord$&;$o>7-$O;$o-=7-$O++){}($o+=$O)+$O<5
|5<$O?"$o.$O":"$O.$o"\eg,($O=$_)=~y;70-{.;\\|/ ;,y;2-}10;_\\|/_ ;;"$_
$O\n"}if(/k/){print K while<>;exit}(?o?&&open O,"|-")?(y|_| |,print O
K):do{s`.\..`'esg'&$&`eg,y,'|/EDd%G\\,50-{,,s,(.*\n)(.*\n?),$1|$2,eg,
s;(.)"(.);chr 125-(7.5-($1>$2?$2:$1))**2/2+abs$2-$1;ge,y}`j-|} k-uy\b
jv-xz},s!\n([ka-i]+)j!$_=$1;y;ka-{;0-};;chr!esg,print while$_=<>.<>};
close"O"