(define (pl lst)
	    (match lst
	      [(list a) (print (string-append "las elm " a))]
	      [(list-rest a r) (print (string-append a " is not last elm."))
	                       (pl r)]))
;; just prints the las element with "las elm". Nothing more than tests.