queue.fs

  type Msg=
      |Add of List<int>
      |Get of AsyncReplyChannel<int list>
   
  let evt=new Event<string>()
  
  let queueBox=MailboxProcessor.Start (fun inbox->
       let rec loop state=
          async{
           let! msg=inbox.Receive()
           match msg with
           |Add x->evt.Trigger("LALALA")
                   return! loop (state@x)
           |Get ch->
                    ch.Reply state
                    return! loop List.empty
           
           
       }
       loop List.empty
      )