anchor.diff:      match argv with
       | [| "--init" ; file |] -> runinit file
       | [| "--load" ; file |] -> runload file
  -    | [| "--play" |]        -> runplay
  +    | [| "--play" |]        -> runplay ()
       | _                     -> printfn "*** Unknown command option."; 1
  
positive.code: 
  let json = ws >>. jvalue .>> ws .>> eof
  
  (* Parse Playlist *)
  type Attribute = AttrName of string
                 | AttrYear of int 
  
negative.code:     let byte = File.ReadAllBytes(Seq.head initSeq)
      System.Text.ASCIIEncoding.Default.GetString byte
  
  let readInitConfig () =
      let str = getFirstLineOfFile ".\init-music-box.cnf"
      match run json str with
      | Success(result, _, _)   -> result
      | Failure(errorMsg, _, _) -> raise (ParserError errorMsg)
  
  let readLoadConfig () =
      let str = getFirstLineOfFile ".\load-music-box.cnf"
      match run sselect str with
      | Success(result, _, _)   -> result
      | Failure(errorMsg, _, _) -> raise (ParserError errorMsg)
  
  let runplay () =
      let dataJson = readInitConfig ()
      let dataAlbum = mapJsonToAlbum dataJson
      printfn "%A" dataAlbum
      let dataSelect = readLoadConfig ()
      printfn "%A" dataSelect
      0
  
  