args for both interactive and compiled F#

args2.fs

// Copyright © 2011, Kevin Cantu, me@kevincantu.org
//
// Usage: runfsi --nologo --exec args2.fs -- $@


module Simple

open System
open System.IO

let inline (^<|) f a = f a

let args =
   #if COMPILED
      System.Environment.GetCommandLineArgs()
   #endif
   #if INTERACTIVE
      fsi.CommandLineArgs
   #endif

let (me, var1, var2) =
   match args with
   | [| x; y; z |] ->
      (x,y,z)
   | _ -> 
      printfn "%d args given..." (args.Length - 1)
      printfn "Usage: %s REF TEST" args.[0]
      exit 1
            
printfn "%s" var1
printfn "%s" var2

exit 0