Como faço para concatenar uma lista de seqüências de caracteres em F #?

Estou tentando isso no momento, mas ainda não consegui a assinatura do método funcionou ... alguém? mensagens é um campo de seq [string]

let messageString = List.reduce(messages, fun (m1, m2) -> m1 + m2 + Environment.NewLine)