write the complete evolution in clisp

$($defun f $($x y$)$

$($if $(<$ x $1)$

$($print "finished"$)$

$($f $(-$ x y$)(+$ y $1))))$