$x=<>;sub f{my$_=$x;s/[ @_~]/  (__)/g;s/\d/   || /g;print"||$_  ||
"}$_='|\\'.'='x6x(length$x).'==/|
';print;f-9;f-4;f;f"5-";y|\\/|<>|;print;$x=~y/5-9/0-4/;f"$_-"for 1..5;f-$_ for 0..4;y|<>|/\\|;print