Ive attached the instructions and example solution in the second photo

;;; Problem $2$

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

$($definec m$2($x :tl y :int$)$ :nat

XXX$)$

"Property $2-1"$

$($property

XXX$)$

"Property $2-2"$

$($property

XXX$)$

$($definec f$2($x :tl y :int$)$ :nat

$($declare $($xargs :measure $($if $($and $($tlp x$)($intp y$))($m$2$ x y$)0)))$

$($cond $((=$ y $($len x$))$ y$)$

y $($len x$))($f$2$ x $(+1$ y $($len x$))))$

$($t $($f$2($cons y x$)$ y$))))$