Drew Ewen

perl -e 'eval(q$(*16,x)&2-+,x967,0=*x(=*4x09;3=*tR&c$^q-X-x36)'