n
(define-syntax <-
(syntax-rules ()
[(<- hs a) (hash-refs hs a)]
[(<- hs a b) (hash-refs (hash-ref hs a) b)]
[(<- hs a b c ...) (<- (hash-refs (hash-ref hs a) b) c ...)]))
(syntax-rules ()
[(<- hs a) (hash-refs hs a)]
[(<- hs a b) (hash-refs (hash-ref hs a) b)]
[(<- hs a b c ...) (<- (hash-refs (hash-ref hs a) b) c ...)]))
но там в секспе не хэш, а линкед лист, как завещал нам святой Маккарти