#!/bin/csh -f
set input = $1


# Put one parse per line to make pattern matching easier and get rid of extra newlines
# adds S1 as TOP node in SWBD and WSJ.

perl -pi -e 's/\n//' $input
perl -pi -e 's/[ \t]+/ /g' $input
perl -pi -e 's/\(S1 \(/\n(S1 (/g' $input
perl -pi -e 's/\(\s*\(/\n(S1 (/g' $input
perl -pi -e 's/^\n//g' $input

