icpc2012dA Haskell