;; added on 21/1/11 cause the default one wasn't working (define cl:last (lambda (lista) (list-ref lista (- (length lista) 1))))