sub error {
  shift;
  my @r;
  (exists $ERRMSG->{$_} && push @r, $ERRMSG->{$_})
    or croak "Unknown Error code '$_'"   
      foreach(@_ ? @_ : @$ERR);
  @r
}