{-# LANGUAGE NoImplicitPrelude #-}
import List --for test

class Functor f where
    fmap :: (a -> b) -> f a -> f b

--Test. Works for me.
instance Functor List where
    fmap = map