arc> (def litmatch1 litmatch) #<procedure: litmatch1> arc> (litmatch1 "b" "brian") nil arc> (~litmatch1 "b" "brian") t arc> (~litmatch1 "z" "brian") t