#!/bin/tcsh

# simple script to check a statistical MAUS *.rul set
# with regard to the rule probabilities (2nd column):
# ln[p(r|l,m,r)]
# The sum over all <r> with the same condition <l,m,r> 
# over p(r|l,m,r) must be equal or less than 1.
#
# Typical error message of word_var:
#   File: CrlkontWordVar.cc, Line 262
#   internal error sumwk=1.354252

awk -f ${0}.awk $1

exit $status

