0. #lang racket
1.  
2. (define(abNum1 a)(if(< a 0)(list(* -1 a))(list a)))
3. (define(abNum2 a)(if(< a 0)(list(* -1 a))(list a)))
4. (abNum1 4)
5. (abNum2 -5)
6.  
7.  
8. (define (bigger-magnitude a b )(if (>= a b)(list a)(list b)))
9.  
10.  
11. (bigger-magnitude abNum1 abNum2)

=>

'(4)

'(5)

>=: contract violation

expected: real?

given: #<procedure:abNum1>

argument position: 1st

other arguments...:

#<procedure:abNum2>