let rec matchingLine line =
    match line with
    |element::tl ->
        match element with
        |Space(k)::tl->
            printf " lol"
            matchingLine tl
        |Word(k)::tl->
            printf " word"
            matchingLine tl
        |_-> ()