// miscellaneous ; XY [] swap pair [[.xy] infra] converge *: ; ; time { [] _T [[_y] [i] infra swap _T -. 86400 *] -> } ;