... float let rand = new Random() let getRandomQuantity() = match rand.Next(1) with | -> Quantity.Discrete (rand.Next()) | _ -> Quantity.Continuous (rand.NextDouble() * float_of_int (rand.Next())) ... 4/27/07 1:08 PM Page 340 CHAPTER 13 I COMPATIBILITY AND ADVANCED INTEROPERATION The results of this example, when compiled and executed, are as follows: Unhandled Exception: System.InvalidProgramException: ... path>";; command, 307 #if FLAG command, 119 #import command, 342 #light declaration, 21 #load "." "";; command, 308 #nowarn 51 command, 337 #quit;; command, 308 #r "...