(define (recognize-move label tape)
   (cond ((equal?(assoc label abbreviations)#f)(print "erreur"))
    ((or (eq? label (car tape))
          (member (car tape) (assoc label abbreviations)))      
      ((list (cdr tape)))
     (eq? label '|#|)
          (list tape)))