-- an example of how to use HighWaterMark.megaBytesAllocated
module Main where

import HighWaterMark

main :: IO ()
main
   = do sze <- megaBytesAllocated
        print sze
        let x = [1..(2500000::Int)]
        print $ length x
        print $ length $ reverse x
        sze2 <- megaBytesAllocated
        print sze2