&sys touch areacheck
&do num &list  big_anderson big_beef big_bend big_quilcene devereaux dewatto dosewallips duckabush eagle enati finch fulton hamma_hamma happy_hollow hill holyoke jorsted lilliwaup little_mission little_quilcene miller mission mulberg seabeck skokomish stavis stimson tahuya tarboo thorndyke trails_end twanoh twanoh_falls union union_store unnamed wacketickeh alderbrook 
    &ty %num% [delete tmpa -info]
    statistics %num%/streams arc # tmpa;max maxmsq;end
    &sys echo %num% [calc [listunique %num%/mask.vat -info count] * 22500] [listunique tmpa -info MAX-MAXMSQ] >> areacheck
    &if [calc [listunique %num%/mask.vat -info count] * 22500] ne [trunc [listunique tmpa -info MAX-MAXMSQ]] &then
      &sys echo DANGER %num% >> areacheck
&end
&sys grep DANGER areacheck | tr -d DANGER | tr -d '\012\015'