#!perl -paF
sub f{//,print'|| ',map(($'<0?$_<-$':$_>=$')?' (__) ':' || ',@F),' ||
'for@_}print$_='|\=='.'='x6x@F.'/|
';f!y'\/'<>',-5,10,5;$_%=5for@F;f 1..5,-print,-y'><'\/',-3,-4,0
Note that non-ascii characters in the above source code will be escaped (such as \x9f).