fork download
  1. open System
  2.  
  3. let x = (1, 2)
  4. let (p, q) = x
  5. printfn "A %A" x
  6. printfn "B %A %A" p q
  7.  
  8. let y = Some(1, 2)
  9. try
  10. let (None) = y
  11. ()
  12. with
  13. | ex -> printfn "C %A" ex
  14. let (Some(r, s)) = y
  15. printfn "D %A" y
  16. printfn "E %A %A" r s
Success #stdin #stdout 0.21s 25384KB
stdin
Standard input is empty
stdout
A (1, 2)
B 1 2
C MatchFailureException ("/home/MBO542/prog.fs",10,6)
D Some (1, 2)
E 1 2