anchor.diff:  (* Datatype *)
   type Album = { Name: string; Year: int }
   type Song  = { Artist: string; Song: string; TimeInSec: int; Album: Album }
  -type Songx = { Artist: string; Song: string; TimeInSec: int; Albumx: string }
   
   (* Parse JSON *)
   type Json = JString of string
  
positive.code: let runinit file =
      let byte = File.ReadAllBytes(file)
      let str = System.Text.ASCIIEncoding.Default.GetString byte
      printf "%s" str
      0
  
  let runload file =
  
negative.code:     | [| "--init" ; file |] -> runinit file
      | [| "--load" ; file |] -> runload file
      | [| "--play" |]        -> runplay
      | _                     -> printfn "*** Unknown command option."; 1
  