Which one of these Haskell programs would you rather read and maintain?

Euler8.hs

module Euler8 where -- http://projecteuler.net/problem=8

import Data.Char (digitToInt, isDigit)
import Data.List (tails)

main :: IO ()
main = getContents >>= print . euler8

euler8 :: String -> Int
euler8
    = maximum
    . map product
    . takes 13
    . map digitToInt
    . filter isDigit

takes :: Int -> [a] -> [[a]]
takes n = map (take n) . tails

Euler8Flow.hs

module Euler8Flow where -- http://projecteuler.net/problem=8

import Flow -- http://hackage.haskell.org/package/flow

import Data.Char (digitToInt, isDigit)
import Data.List (tails)

main :: IO ()
main = do
    input <- getContents
    let output = euler8 input
    print output

euler8 :: String -> Int
euler8 string = string
    |> filter isDigit
    |> map digitToInt
    |> takes 13
    |> map product
    |> maximum

takes :: Int -> [a] -> [[a]]
takes size list = list
    |> tails
    |> map (take size)