Er der nogen som den kan lave denne funktion?

Jeg har denne SML-funktion:

fun listFromString x = let val y = explode x
                          fun remove [] = []
                            | remove(z :: zs) = if z = #"[" then remove zs else z :: remove zs
                          fun createlists [] = []
                            | createlists(q :: qs) = if q <> #"]" then q :: createlists qs else createlists qs
                          fun last_step [] = []
                            | last_step(w :: ws) = (implode w) :: last_step ws
                      in last_step(createlists(remove x))
                      end;

Men får denne fejl:
! Type clash: expression of type
!  char list
! cannot have type
!  char list list

Det den skal er at lave dette om:
"[lars,19,dreng][pia,21,pige][torben,19,dreng]"
om til dette:
["lars,19,dreng","pia,21,pige","torben,19,dreng"]

Hvordan fixer jeg den?