&CAMERA here=$+camera:@pemit %#=[ansi(g,You click the camera icon and a window pops up showing the following information:)][u(whos)]
&whos here=[setq(l,lwho()%b#179)][iter(%ql,[if(neq(comp(loc(##),#-1),0),[setq(w,%qw%b[loc(##)])])])][setq(b,trimpenn(%qb,%b))][iter(%qw,[if(eq(strmatch(%b%qu%b,*%b##%b*),0),setq(u,%qu[if(neq(strlen(%qu),0),%b)]##))])][iter(%qu,[setq(n,0)][iter(%qw,[if(eq(comp(itext(0),itext(1),I),0),[setq(n,add(%qn,1))])])][setq(f,%qf[if(neq(strlen(%qf),0),~)][sub(500000,%qn)]:::::[ansi(mh,[ljust(%qn,5)])][ansi(gh,[left(ljust(name(##),20),20)])])])][setq(f,sort(%qf,n,~))][setq(f,regeditall(%qf,(^|~)\[0-9\]+:::::,~))][setq(f,edit(%qf,~,%r))]%qf