1open OS.Process
2
3val _ = system "./quote-filter input temp-output"
4
5val result = system "diff temp-output desired-output"
6
7val _ = if isSuccess result then exit success else exit failure
8