alias quantify {
  write -c quantify1.txt
  write -c quantify2.txt
  write -c quanitfy3.txt
  if ($isfile($1)) {
    var %1 $lines($1)
    while (%1 >= 1) {
      var %write $read($1, %1)
      write quantify1.txt %write
      dec %1
    }
    while ($read(quantify1.txt) != $null) {
      var %quantify1-2 $read(quantify1.txt,1)
      if (!$read(quantify2.txt, sn, %quantify1-2)) {
        write quantify2.txt %quantify1-2 ( $+ $chr(2) $+ x1 $+ $chr(2) $+ )
        write -dl1 quantify1.txt
      }
      elseif ($read(quantify2.txt, sn, %quantify1-2)) {
        var %readn $readn
        var %readeh = $read(quantify2.txt, sn, %quantify1-2)
        var %readehcalc.1 = $remove(%readeh,$chr(40),$chr(120),$chr(41),$chr(2))
        var %readehcalc.2 = $calc(%readehcalc.1 + 1)
        var %readehcalc = $chr(40) $+ $+ $chr(2) $+ $chr(120) $+ %readehcalc.2 $+ $chr(2) $+ $chr(41)
        write -l $+ %readn quantify2.txt %quantify1-2 %readehcalc
        write -dl1 quantify1.txt
      }
    }
    var %1 1
    unset %prizes
    while (%1 <= $lines(quantify2.txt)) {
      set %prizes $replace($addtok(%prizes,$read(quantify2.txt, %1),44),$chr(44),$chr(44) $+ $chr(32))
      inc %1
    }
    if (!$2) {
      var %oldprizes %prizes
      var %prizes $chr(3) $+ %agtheme %oldprizes
      return %prizes
      write -c quantifynick.txt
    }
    else {
      if ($2 == off) {
        return %prizes
      }
      else {
        echo -a Unknow command $qt($2) $+ .
        var %oldprizes %prizes
        var %prizes $chr(3) $+ %agtheme %oldprizes
        return %prizes
        write -c quantifynick.txt
      }
    }
  }
  else {
    return $1 is not a file.
  }
}