$1.$ Define a function alwaysFollows of type $[$Integer$]->$ Bool so that alwaysFollows $(\backslash (\backslash$mathrm$\{$x$\},\backslash$mathrm$\{$y$\},\backslash$mathrm$\{$lst$\}\backslash ))$ is true if and only if whenever $\backslash ($ x $\backslash )$ occurs in the list $\backslash ($ l s t $\backslash ),$ it is always followed by $\backslash ($ y $\backslash ).$ Try your function out on

$($alwaysFollows$(\text{'}$p$\text{'},\text{'}$m$\text{'},$ "ipmnotppm"$),$

alwaysFollows$(6,2,[1,4,6,2,8,5,6,2,7,3]))$

Turn in a listing of the function and the results of the test run. make it simple for someone who doesn't really know how to code in Haskel.