let foo x=
  match x with
    | 1 -> printf "eestlane"
    | 2 -> printf "venelane"
    | _ -> printf "muulane"

foo 2