/ Smullyan Birds \l h birds:{a:(1+x?,"\\")_ x;a@:&~"/"=a[;0];a@:&~" "=a[;0];@[+bird'a;0;{(x;_hash x)}]} bird:{(`$i#x;Comb@,/" ",'(i:x?" ")_ x)} Y::birds@0:"y.k" \ A S(SK) B S(KS)K C S(BBS)(KK) D BB E B(BBB) F ETTET G BBC H BW(BC) I SKK J B(BC)(W(BC(B(BBB)))) / K K L CBM M SII O SI Q CB R BBT / S S T CI V BCT W C(BMR) Y SLL w MM t YO