#lang racket
(define (lowest4 x y z c)
(if
(and(and(< x y)(< x z))(< x c))
x
(and(and(< y x)(< y z))(< y c))
y
(and(and(< z x)(< z y))(< z c))
z
))
I2xhbmcgcmFja2V0CihkZWZpbmUgKGxvd2VzdDQgeCB5IHogYykKICAoaWYgCiAgIChhbmQoYW5kKDwgeCB5KSg8IHggeikpKDwgeCBjKSkKICAgeAogICAoYW5kKGFuZCg8IHkgeCkoPCB5IHopKSg8IHkgYykpCiAgeQogIChhbmQoYW5kKDwgeiB4KSg8IHogeSkpKDwgeiBjKSkKICB6CiAgKSkK