anchor.diff:      let byte = File.ReadAllBytes(Seq.head initSeq)
       System.Text.ASCIIEncoding.Default.GetString byte
   
  -let readInitConfig =
  +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 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
  -    printfn "%A" dataJson
  -    let dataSelect = readLoadConfig
  +let runplay () =
  +    let dataJson = readInitConfig ()
  +    let dataAlbum = mapJsonToAlbum dataJson
  +    printfn "%A" dataAlbum
  +    let dataSelect = readLoadConfig ()
       printfn "%A" dataSelect
       0
   
  
positive.code: 
  let json = ws >>. jvalue .>> ws .>> eof
  
  (* Parse Playlist *)
  type Attribute = AttrName of string
                 | AttrYear of int 
  
negative.code:     match argv with
      | [| "--init" ; file |] -> runinit file
      | [| "--load" ; file |] -> runload file
      | [| "--play" |]        -> runplay ()
      | _                     -> printfn "*** Unknown command option."; 1
  