How can I write a function that will check a given list and return true if the list is a string list? At the moment what I have is that it returns true for any list it is given.
let rec checklist list =
match list with
| x :: xs -> true
| _ -> false
checklist ["1";"2"]