#lang racket/gui


(define a '(1 2 #f 'a 'b 5 #f (1 . 2)))

(filter (λ (e) (if (equal? e #f) #f #t)) a)
(filter identity a)

(define z 1)

(λ (x)
  (λ (x)
    ( (λ (y) x) z)
    )
  x)


; omega este o expresie ireductibilă
(define omega ( (λ (x) (x x))  (λ (x)  (x x)) ))