#!perl
sub f{my$b=$_[$#_];$b+@_==32&&print"@_
";(grep{$_==$b}@_)-1||f(@_,$a[$b-1][$_])for 0..1}$,=" ";push@a,[$_&15,($_>>4)+1]for unpack"C*","ΈΘριΛƒλ΅ξ†ΔςwΆͺ";f(1)