Write a predicate to find the second to last element of a list.

?- before_last(X,[a,b,c,d]).
X = c