open System 

open System.Text.RegularExpressions

​

let matchWords = Regex(@"\w+")

let separators = """[ :#$%^&/<>{}*|;_()!,?.'@+\\\\\\[\\]\\\"]+"""

​

​

let tokenize (text:string) =    

    text    

    |> matchWords.Matches    

    |> Seq.cast<Match>

    |> Seq.map (fun m -> m.Value)

    |> Seq.collect(fun w -> w.Split <| separators.ToCharArray() )

    |> Seq.filter(fun w -> String.IsNullOrEmpty w  |> not)

    |> List.ofSeq

​

[<EntryPoint>]

let main argv =

    let str = Console.ReadLine()

    let tokens = tokenize str

    //Number of words

    printfn "%d" tokens.Length

    //Print one word one every line

    tokens

    |> List.map (printfn "%s")

    |> ignore

    0