$(5$pt$)$ Translate the following Scheme function into OCamL$/$F# using "pattering matching and lists"

$($define allMatch $($lambda $($theFun thelist$)$

$($if $($null$?$ thelist$)$ #t

$($if $($theFun $($car thelist$))$

$($allMatch theFun $($cdr thelist$))$ #f$))))$