anchor.diff:          CharParsers.run Parser.translationUnit "" |> ignore
       with _ ->
           ()
  -    CharParsers.run Parser.StorageQualifier.storageQualifier "uniform" |> printfn "%A"
  +    CharParsers.run Parser.StorageQualifierParser.storageQualifier "uniform" |> printfn "%A"
       
       printfn "Hello World from F#!"
       0 // return an integer exit code
  
positive.code:         | Percent
          | Keyword of Keyword
          | LParens
          | RParens 
      and Keyword =
          | Const
          | Uniform
  
negative.code:             <|> TokensParsers.Keyword._subroutine
              <|> (TokensParsers.Keyword._subroutine .>> TokensParsers.lParens .>> (typeNameList TokensParsers.rParens) .>> TokensParsers.rParens)
      
      module TypeQualifierParser =
          let singleTypeQualifier =
              StorageQualifierParser.storageQualifier |>> StorageQualifier
  
          let typeQualifierParser: Parser<TypeQualifier, _> = many1 singleTypeQualifier
      
      let functionDefinition = preturn FunctionDefinition //TODO: To parse uniforms this can probably be skipped
      
      module Declaration =
  