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