(setq mycons
(lambda (a )
(lambda (b)
(lambda (f)
(funcall (funcall f a ) b)
)
)
)
)
(setq mycar
(lambda (c)
(funcall c
(lambda (a)
(lambda (b)
a
)
)
)
)
)
(setq mycdr
(lambda (c)
(funcall c
(lambda (a)
(lambda (b)
b
)
)
)
)
)
(setq data (funcall (funcall mycons 1 ) 2) )
(funcall mycar data)
(funcall mycdr data)