-- | Given two lists, traverses both lists as long as their entries are equal and returs the last equal entry
-- Example:   lastCommonList [0,4,5] [0] 42  =>  0
-- Example:   lastCommonList [0,4,5] [4] 42  =>  42  (nothing was common, outputing default )
-- Example:   lastCommonList [0,4,5] [0,4,12] 42  =>  4 
-- Example:   lastCommonList [0,4,5] [0,4,5] 42  =>  5  
lastCommonList :: Eq a => [a] -> [a] -> a -> a 
lastCommonList [] _ n = n
lastCommonList :: Eq a => [a] -> [a] -> a -> a
lastCommonList [] _ n = n
lastCommonList [] _ n = n