#!/usr/local/bin/perl -i

# Script to fix use of value types as parameters.
# Will need to be fixed when we allow multiple parameters
# (eg, dict[string, int])

while (<>) {
      s/<th_(int|char|bool|null|real)(\s)/<\1\2/g;
      print $_;
}
