Implement a Haskell function varmap::String -> [(String,Int)] -> Int, based on the denotational semantics function VARMAP, that takes an identifier and a list of identifier-value pairs and returns the value associated with the identifier in the list. To accommodate Haskells static typing, you may assume the values are non-negative integers and use -1 in place of undef. You may also return -1 as an error code if the identifier is not in the list.

3. Implement a Haskell function varmap::String ->(String,Int)-Int, based on the denotiational semantics function VARMAP, that takes an identifier and a list of identifier-value pairs and returns the value associated with the identifier in the list. To accommodate Haskell's static typing, you may assume the values are non-negative integers and use -1 in place of undef. You may also return -1 as an error code if the identifier is not in the list