F# Tree traversal Test

treetraversal.fs

open System

// printfn "Hello, world!"

type Tree<'a> = 
    | Node of Tree<'a> * Tree<'a>
    | Leaf of 'a

let rec travelTree tree =
    match tree with
    | Node (left, right) ->
        do
            travelTree left
            travelTree right
    | Leaf num -> 
        printfn "Currently at: %i" num |> ignore
    

let getExampleTree =
    Node 
        ( Node 
            ( Node (Leaf 1, Leaf 2)
            , Node 
                ( Node (Leaf 3, Leaf 4)
                , Leaf 5))
        , Leaf 6)
        
        
travelTree getExampleTree