    begin
    integer  base,dict,len,i,j,k
    externalroutinespec  define(string (255) s)
    externalintegerfnspec  smaddr(integer  chan,integername  len)
    on  event  9 start
      write(dict-base,1);  printstring(" bytes")
      newline
      stop
    finish
      define("1,EDICT")
      define("30,ECCEDICT")
      base = smaddr(30,len);  dict = base
      select input(1)
      cycle
        read symbol(k) until  k > ' '
        j = 0
        for  i = 1,1,6 cycle
          k = k-'!'
          monitor  and  stop  if  k&(\63) # 0
          j = j<<6+k
          read symbol(k)
        repeat
        monitor  and  stop  if  k > ' ' or  len < 4
        integer(dict) = j
        dict = dict+4;  len = len-4
      repeat
    endofprogram