$q=q=l83kal7kbl7kbl1kcl1k0m4kal4Jal3Kbxal3KbXcX0eXfXcXbXcXbXcX0eXfxam3Jbxam3J=. q-bxam3J0eXfxal3Kbxal5jbxal3K0eXfXcXbXhXcX0al3JfXcXbXhXcX0am5jfm1jcm1jbm1jhm1-. q+jcm1j+;$_=$q;s=([1-8])=q+q+x$1=eg;s-0-\n-g;s+([A-Z])+lc$1.'ax'+eg;s*([a-h])* ' 'x(-96+ord$1)*eg;$/=$_;until($r){$|=printf"\x0e\e[3%d;%dm\e[H\e[J$/\x0f",int rand+8,$O=7-$O;select$o,$o,$o,.3}