let
cddr (l :
'
a list) :
'
a list =
match
l
with
(_::_::ls)
->
ls
|
_
->
failwith
"no more element"