#!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