-- The classical last element of a list:

import Test.Prop

last :: (Data a, Eq a) => [a] -> a
last xs | _ ++ [x] == xs = x  where x free

main :: Int
main = last [1,2,3]

test_last = last [1,2,3] -=- 3