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