Recursive descent parser using F# Active Patterns compiled to JavaScript with WebSharper

BlockQuote.fs

open IntelliFactory.WebSharper
open IntelliFactory.WebSharper.Html
open Server.Tonys

[<JavaScript>]
let string chars = System.String (chars |> List.rev |> List.toArray)

[<JavaScript>]
let rec (|Eval|) = function
    | Normal (c :: rest) ->
        let rec aux acc = function
            | Normal (c :: rest) -> aux (c :: acc) rest
            | Quote rest | rest ->
                let (Eval result) = rest
                P [string acc |> Text] :: result
        aux [c] rest
    | Quote (_ :: rest) ->
        let rec aux acc = function
            | Normal (c :: rest) -> aux (c :: acc) rest
            | Quote (_ :: rest) | rest ->
                let (Eval result) = rest
                BlockQuote [string acc |> Text] :: result
        aux [] rest
    | _ -> []
and [<JavaScript>] (|Normal|Quote|) = function
    | '"' :: _ as rest -> Quote rest
    | rest -> Normal rest