on *:TEXT:!write *:#:{
   write write.txt $2-
}

on *:TEXT:!read*:#:{
  msg $chan $read(write.txt)