zivTimer.sml

fun measureTime f =
    let
        val t = Timer.startRealTimer () 
    in
        (f (), Timer.checkRealTimer t)
    end

fun readAll (h, acc) = 
    let
        val s = TextIO.inputLine h
    in
        case s
            of SOME (s)   => readAll (h, acc ^ s)
             | NONE       => acc
    end

fun testFile n =
    let
        val f = TextIO.openIn n
        val s = readAll (f, "")

        val (cr, ct) = measureTime (fn () => compress(explode s))
        val (dr, dt) = measureTime (fn () => implode(decompress cr))

        val r = 
            case (s = dr)
                of true   => "SUCCEEDED"
                 | false  => "FAILED"
    in
        ("Test " ^ r ^ " in:", ct + dt, "seconds (compress:", ct, "s, decompress:", dt, "s)")
    end
;

Generating a file with 1000 random ASCII characters: tr -cd '[:alnum:]' < /dev/urandom | fold -w1000 | head -n1 > 1000.txt