Improve Space Usage

It is example from programming in haskell video lecture 12 by Eric M. I just like to know whether GHC profile tool could help to figure out such problem.

  module Main where

  sumWith1 v [] = v
  sumWith1 v (x:xs) = sumWith1 (v+x) xs

  sumWith2 v [] = v
  sumWith2 v (x:xs) = (sumWith2 $! (v+x)) xs

  test = sumWith2 0 [1..20000000]

  main = print test