let actionTreatment (mess : string) : string * string * string =
 let sender = remove_space (String.sub mess 0 (String.index mess '-')) in
 let mark1 = ((String.index mess '>')+1) in
 let reciever = remove_space (String.sub mess mark1 ((String.index mess ':')-mark1)) in
 let mark2 =  ((String.index mess ':')+1) in
 let message = remove_space(String.sub mess mark2 ((String.length mess)-mark2)) in
 (sender, reciever, message)