i:,/+2\i-7*10<i:-"0"--1_1:"i/16"
a:{(!0;2/,/1_'l;(#,/l:5#'(*:)(5_)\x)_x)}
b:{(r;0;*|*|r:(-1+2/11#x)(f@*|:)\f 11_x)}
c:{l:2/15#x;((#*|:)(f@*|:)\f l#15_x;0;15_l_x)}
f:{t,(2/3#x),$[4=t:2/3#3_x;a@6_x;(c;b)[x 6]7_x]}
{x[1]+/o'x@2}p:f@i
{x[3]+(+;*;&;|;0;>;<;=)[*x]/o'x@2}p