sniffmem := proc()
  options  `Maple Advisor Database 1.01 for Maple V Release 4 and 5`,
`Copyright (c) 1999 by Robert B. Israel.  All rights reserved`;  
  local L, N;
    if 1 <= nargs then N := args[1] else N := 1000 fi;
    L := select(
        (t,N) -> type(t, procedure) and 
             N < length(op(4, eval(t))), [anames()],N);
    L := map(t -> [t, length(op(4, eval(t)))], L);
    sort(L, (a, b) -> evalb(a[2] < b[2]))
  end;