anchor.diff:                                  RepositoryOwner:string;
                                   RepositoryName:string;
                                   File:string;
  +                                Language:string;
                                   RevealTemplatePath:string;
                                   OutputPath:string;
  -                                Language:string;
                               }
   
       let rec parseCommandLineRec args optionsSoFar = 
  
positive.code:                printf "usage: GitHubAnimator [-o[wner] repositoryOwner] [-r[epository] repositoryName] [-f[ile] fileName] [-out[putpath] outputPath] [-template[path] revealTemplatePath] [-l[anguage] language]"
                 optionsSoFar 
  
      [<EntryPoint>]
      let main argv = 
  
          let defaultOptions = { 
                                      RepositoryOwner = ""; 
                                      RepositoryName = ""; 
                                      File = "";
                                      RevealTemplatePath = ".\\reveal.js";
                                      OutputPath = ".\\Presentation";
                                      Language = "" 
                                  }
  
          let args = argv |> List.ofArray
          let options = parseCommandLineRec args defaultOptions
  
          let parameters = {
                              Owner = options.RepositoryOwner;
                              Repository = options.RepositoryName;
                              File =  options.File;
                              Language = options.Language;
                              }
  
  
          createClient
              |> createPresentation parameters
              |> savePresentation 
                  options.RevealTemplatePath 
                  options.OutputPath
  
negative.code: ﻿namespace GitHubAnimator
  
  module Program =
      open Animator
  
      type CommandLineOption = 
  