anchor.diff:          | Percent
           | Keyword of Keyword
           | LParens
  -        | RParens 
  +        | RParens
  +    and TypeQualifier = SingleTypeQualifier list
  +    and SingleTypeQualifier =
  +        | StorageQualifier of Token //TODO: Can be narrowed to actual storage qualifiers
       and Keyword =
           | Const
           | Uniform
  
positive.code:         CharParsers.run Parser.translationUnit "" |> ignore
      with _ ->
          ()
      CharParsers.run Parser.StorageQualifier.storageQualifier "uniform" |> printfn "%A"
      
      printfn "Hello World from F#!"
      0 // return an integer exit code
  
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 =
  