(setq xs '(1 2 3 4 5))
(setq ys '((1 2) (3 4) (5 6)))

(print "XS:")
(print xs)
(print (length xs))
(print (find (lambda (x) (> x 3)) xs))

(print "YS:")
(print ys)
(print (length ys))
(print (find (lambda (x) (> (car x) 2)) ys))
