Evaluate using the following functions:

$($defun g$1($h x$)($if $($null x$)\text{'}()($cons $($funcall h $($car x$))($g$1$ h $($cdr x$)))))$ for simple list g$1$

$($defun g$1($h x$)$for nested list g$1$

$($if $($null x$)$

$\text{'}()$

$($if $($atom $($car x$))$

$($cons $($funcall h $($car x$))($g$1$ h $($cdr x$)))$

$($cons $($g$1$ h $($car x$))($g$1$ h $($cdr x$))))))$

$($defun f$1($x$)(*$ x x$))$

$($defun f$2($x$)(*$ x x x$))$

$($defun f$3($x$)(+$ x $4))$

$($defun f $($flist x$)($if $($null flist$)$ x $($f $($cdr flist$)($g$1($car flist$)$ x$))))$

$$

$3)$ Calling f with $\text{'}($f$1$ f$2$ f$3)$ and the well$-$formed$-$nested$-$list $\text{'}((456)(123)(-1-23))$ resulted in$((41001562946660)(568733)(568733)).$ The invocation of f and the result are shown as$$ follows:

LISP$>($f $\text{'}($f$1$ f$2$ f$3)\text{'}((456)(123)(-1-23)))$

$((41001562946660)(568733)(568733))$

The above is a successive application of f$3$ on the result of f$2$ on the result of f$1,$ where f$1,$ f$2,$ and f$3$ are $($defun f$1($x$)(*$ x x$)),($defun f$2($x$)(*$ x x x$)),$ and $($defun f$3($x$)(+$ x $4)).$

Rewrite g$1$ and$/$or f so that the resulting list is a list of the results of applying f$1$ on the specified well$-$formed$-$nested$-$list followed by applying f$2$ on the specified well$-$formed$-$nested$-$list followed by applying f$3$ on the specified well$-$formed$-$nested$-$list. For example,

LISP$>($f $\text{'}($f$1$ f$2$ f$3)\text{'}((456)(123)))$

$(((162536)(149))((64125216)(1827))((8910)(567)))$

Source listing of function g$1$:

Source listing of function f: