(check (= (and (let ((apa 1)) apa) (let ((bepa 2)) bepa)) 2))