Haskellのメモリ使用量

Haskellで，AOJ (Aizu Online Judge)のMaximum Profitに挑戦している． 最初は演算量にも難儀してTime Limit Exceededの壁を越えられず苦労していたんだけど，こちらの方は「

プログラミングコンテスト攻略のためのアルゴリズムとデータ構造

」を読んでO(n)のアルゴリズムが分かったので解決．(目から鱗) ところがMemory Limit Exceededエラーの壁を越えられない． 以下が現在のコード．

ans' m a [] = a
ans' m a (x:xs) = 
  let m' = min m x
      a' = max a (x-m)
  in
    ans' m' a' xs

ans x = 
    let (x0:x1:xs) = x
        init_max  = x1 - x0
    in
      ans' x0 init_max (x1:xs)

main = do
    n <- getLine
    c <- getContents
    let i = map read $ lines c :: [Int]
        o = ans i
    print o

これで，Case #37でメモリ使用量が2.6GBとなってしまう (制限は140MB)． うーんなんでだろう？ アルゴリズム自体はメモリ量を必要とするものではないし，getContentsもLazyなはずだから必要に応じて読み出されると思うのだけど．． getContentsがバッファリングしているということだろうけど，バッファリングの量を制御する方法はあるんだろうか？