[ds<x=+z0<^]s=[?]s+[d2%l**+]s%[ds*]sU[pc]s0[dl%xl*l<==]s^[OI^s*[>US-]==[L-]s+[=0S>]==[L>]s+l*ZI>/]ds/x[]ps%=/