`chain` function recurses into the `pipe` function

[rupertlssmith]

chain : Expression -> List Expression -> Expression
chain head expressions =
    case expressions of
        [] ->
            head

        [ expr ] ->
            applyBinOp head composer expr

        expr :: exprs ->
            applyBinOp head composer (pipe expr exprs)

In the last line it should recurse into the chain function, or this will produce one function compose operator followed by pipe operators.