: find_descriptor
dup 0 = if pop exit then
over condbref over 3 + pick dbcmp if
dup 3 + rotate pop over over
3 + 0 swap - rotate then
swap pop 1 - find_descriptor
;
: main
0 me @ connections find_descriptor
pop
me @ "*tty" 3 pick intostr 0 addprop
me @ "*host" 3 pick conhost 0 addprop
me @ "*connect" systime intostr 0 addprop
pop
;