i:{(x[0],0 0 0;x[1],0 0 0;x[2],x[3],0 0;x[4],0,x[5],0)}'.''(" "\'0:"i/19")[;6 12 18 21 27 30] i:{,/'+(-x;=4)}'i f:{ x:x{{,[;0]1_(&/~0>-)':x}_x@/:4#'x}[;y]#x x+:(4_'x),\:0 0 0 0 x:?x x} +/(1+!#i)*{|/(24 f[;x]/,(0 0 0 0 1 0 0 0))[;3]}'i */{|/(32 f[;x]/,(0 0 0 0 1 0 0 0))[;3]}'3#i