7sharp9

open System
open Microsoft.FSharp.Quotations
open Microsoft.FSharp.Quotations.Patterns
open Microsoft.FSharp.Quotations.ExprShape
open Microsoft.FSharp.Quotations.DerivedPatterns

let qliteral =
    <@ 
          let addAndMultiply a b =

7sharp9

namespace ClassLibrary1
open System

module SingleCase =
            
    //definition
    let (|UpperCase|) (x:string) = x.ToUpper()

    //PM usage
    match "foo" with