Using notepad++ and winGHCi page please

3. Write a polymorphic function: rotate :: [a] -> [a] which swaps the first two elements of a list (or leaves the list unchanged if it contains fewer than two elements). (For example, rotate (5,7,2,4] = [7,5,2,4].)