to geradeungerade :x ifelse (:x/2 = int :x/2) [(print :x "ist "gerade)] [(print :x "ist "ungerade)] end