Using notepad++ and winGHCi page please

List patterns 1. Write a function: headPlusOne :: [Int] => Int which returns the first element plus one for a non-empty list, and 0 for an empty list. (e.g. headPlusOne [5,7,2,4] = 6.) 2. Write a polymorphic function: duplicateHead :: [a] -> [a] which adds an extra copy of the first element at the beginning of the list (or returns [] for an empty list). (For example, duplicateHead (5,7] = [5,5,7].)