on 15:text:=addsunday *:#:{
  write $2- sunday.txt
}
on 15:text:=addmonday *:#:{
  write monday.txt $2- 
}
on 15:text:=addtuesday *:#:{
  write $2- tuesday.txt
}
on 15:text:=addwednesday *:#:{
  write $2- wednesday.txt
}
on 15:text:=addthursday *:#:{
  write $2- thursday.txt
}
on 15:text:=addfriday *:#:{
  write $2- friday.txt
}
on 15:text:=addsaturday *:#:{
  write $2- saturday.txt
}
on 15:text:=readsunday:#:{
  play sunday.txt 2
}
on 15:text:=readmonday:#:{
  play monday.txt 2
}
on 15:text:=readtuesday:#:{
  play tuesday.txt 2
}
on 15:text:=readwednesday:#:{
  play wednesday.txt 2
}
on 15:text:=readthursday:#:{
  play thursday.txt 2
}
on 15:text:=readfriday:#:{
  play friday.txt 2
}
on 15:text:=readsaturday:#:{
  play saturday.txt 2
}