let raise_fsm_error strlist = raise (Fsm_error (String.concat "" strlist))