// 8 queens

q8:{,/{:[8=#*x;,*x;,/_f'f x,\:/:(!8)_dvl,/x]}'(f:0 -1 1+/:)@!8}

/ {join Over {if 8 = count first x
/             then enlist first x
/             else join Over self Each f x join Left Right (enum 8) dvl join Over x} Each (f is 0 -1 1 + Right)apply enum 8