#lang scheme/base

(provide (rename-out [table highlight-table]))

; number of steps to skip, where the step to skip has ellipses on lhs
; # of skips depends on # of hidden !'s in fn def in lazy/lazy.rkt
(define 
  table 
  (make-immutable-hasheq
   '((take   . 0) 
     (caar   . 1) 
     (cadr   . 0)
     (cdar   . 1)
     (cddr   . 0)
     (caaar  . 2)
     (caadr  . 1)
     (cadar  . 1)
     (caddr  . 0)
     (cdaar  . 2)
     (cdadr  . 1)
     (cddar  . 1)
     (cdddr  . 0)
     (caaaar . 3)
     (caaadr . 2)
     (caadar . 2)
     (caaddr . 1)
     (cadaar . 2)
     (cadadr . 1)
     (caddar . 1)
     (cadddr . 0)
     (cdaaar . 3)
     (cdaadr . 2)
     (cdadar . 2)
     (cdaddr . 1)
     (cddaar . 2)
     (cddadr . 1)
     (cdddar . 1)
     (cddddr . 0)
     (first  . 0)
     (second . 0)
     (third  . 0)
     (fourth . 0)
     (fifth  . 0)
     (sixth  . 0)
     (seventh . 0)
     (eighth  . 0)
     (eq?    . 0)
     (eqv?   . 0)
     (equal? . 0)
     (list?  . 0)
     (length . 0)
     (list-ref  . 0)
     (list-tail . 0)
     (append    . 0)
     (reverse   . 0)
     (empty?    . 0)
     (assoc . 0)
     (assq  . 0)
     (assv  . 0)
     (cons? . 0)
     (remove . 0)
     (remq   . 0)
     (remv   . 0)
     (member . 0)
     (memq   . 0)
     (memv   . 0)
     )))