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

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

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

Turn in a listing of the function and the results of the test run.