alias Cle {
  if $1 == add {
    hadd -m Cle $2 $3-
    hsave Cle cle.x
  }
  if $1 == get {
    if $hget(Cle,$2) {
      return $ifmatch
    }
    else {
      return Normal
    }
  }
}