anchor.diff:          let rParens = pchar ')' >>. preturn (Token RParens)
           
           module Keyword =
  -            let private keywordP str keyword = pstring str >>. preturn (keyword |> Keyword |> Token)
  +            let private keywordP str keyword = pstring str >>. preturn (keyword |> Keyword)
               
               let _const = keywordP "const" Const
               let _in = keywordP "in" In
  
positive.code:             <|> TokensParsers.Keyword._subroutine
              <|> (TokensParsers.Keyword._subroutine .>> TokensParsers.lParens .>> (typeNameList TokensParsers.rParens) .>> TokensParsers.rParens)
      
      let functionDefinition = preturn FunctionDefinition //TODO: To parse uniforms this can probably be skipped
      
      module Declaration =
  
negative.code:                 
      let typeNameList endP = many1Till anyChar endP
      
      module StorageQualifierParser =
          let storageQualifier =
              TokensParsers.Keyword._const
              <|> TokensParsers.Keyword._in
  