/ auction server

if[~_p;."\\m i 1234"]
\d A
desc:-20$("a book";"a chair";"a apple")
by:10 20 1.
who:0 0 0
num:0 0 0
bid:100 500 20.
\d ^
A[.;`e]:0
W:!0
.m.c:"W:W _dv _w"
get:{(T;A;*|W,:_w)}
set:{:[A.by[y]>x-A.bid y;_w 3:(`A;(`bid;y);:;A.bid y);accept[x]y]}
accept:{W 3:\:(`A;(`bid`who`num;y);:;A[`bid`who`num;y]:x,_w,1+A.num y)}
T:900
T..e:0
T..t:":[T;W 3:\\:(`T;();-;1);3::'W];"
.t..t:"if[.k.T>0;.k.T-:1]"
.k..c:`form
.k..a:`T`A
.k..l:`server
`show$`.k
\t 1