#!/usr/bin/perl

# 6 - make maze smaller (!) (31 over)
@m=((31,(15)x8)x9,(31)x9);$m[$c]|=16,!(@a=grep!($m[$c+$$_[0]]&16+$s*$$_[
1]),[-1,8],[1,1],[9,4],[-9,2])?$c=pop@p:${($i,$j)=@{$a[rand@a]};$m[$c]&=
~8/$j;push@p,$c;++$u-72?$m[$c+=$i]&=~$j:map$_&=15,@m,$c=$s=1},$s&&select
$x,$x,$x,.1*print"\ec",(_)x17,map$_%9?($_-$c?$m[$_]&2?_:$":o).($m[$_]&8?
"|":_):"$/|",0..81until$c>79&$s