#!/usr/local/bin/rexx

'/usr/bin/w >FIFO'

max=QUEUED()

klk=0
DO WHILE max>0
   PARSE PULL user device host'.'domain .
   IF host = 'dionis' THEN DO
      klk=klk + 1
      korisnik.klk = user
   END
   max = max - 1
END

DO i=1 TO klk

END

