module M =
    let f x = 
        let y = "asdf"

        y |>

        let g xOpt =
            match xOpt with
            | Some x -> printfn "%A" x
            | None -> printfn ":("
        
        g (Some 12)

        x
        
let printStr = printfn "%s"
M.f printStr