type OrderService() =
    let mutable client : IDuplexClient = null
    let mutable orderName : string = null
    let mutable orderQuantity : int = 0

    member x.Order (name: string, quantity: int) =
        client <- OperationContext.Current.GetCallbackChannel<IDuplexClient>()
        orderName <- name
        orderQuantity <- quantity
        use timer = new Timer (new TimerCallback (CallClient), null, 5000, 5000)
        Thread.Sleep 11000