tr and carriage returns

[Hacksaw]

Original text:

hacksaw > cat -e lm_ack.txt 
; Ackermann^M$
(define a (lambda (n m)^M$
        (if (eqv? n 0) (+ m 1)^M$
        (if (eqv? m 0) (a (- n 1) 1)^M$
        (a (- n 1) (a n (- m 1)))))))^M$

First test works:
hacksaw > cat -e lm_ack.txt | tr -d "\n"
; Ackermann^M$(define a (lambda (n m)^M$        (if (eqv? n 0) (+ m 1)^M$      
 (if (eqv? m 0) (a (- n 1) 1)^M$     (a (- n 1) (a n (- m 
1)))))))^M$habitrail:~/palm/lisp_270s/samples

Second fails:
hacksaw > cat -e lm_ack.txt | tr -d "\r"
; Ackermann^M$
(define a (lambda (n m)^M$
        (if (eqv? n 0) (+ m 1)^M$
        (if (eqv? m 0) (a (- n 1) 1)^M$
        (a (- n 1) (a n (- m 1)))))))^M$