eval 'exec perl -S -i~ $0 ${1+"$@"}'
     if $running_under_some_shell;

# Options: -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 $_;
}
