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)