anchor.diff:              <|> 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 =
  
positive.code:                 
      let typeNameList endP = many1Till anyChar endP
      
      module StorageQualifier =
          let storageQualifier =
              TokensParsers.Keyword._const
              <|> TokensParsers.Keyword._in
  
negative.code:         CharParsers.run Parser.translationUnit "" |> ignore
      with _ ->
          ()
      CharParsers.run Parser.StorageQualifierParser.storageQualifier "uniform" |> printfn "%A"
      
      printfn "Hello World from F#!"
      0 // return an integer exit code
  