on *:text:!join *:#wob: {
  if ($2-) {
    write Book.txt $nick - $2-
    notice $nick 13You have entered:9 $2-
  }
  on *:text:!show:#wob: {
    if ($read(Book.txt)) {
      var %s = 1
      while (%s <= $lines(Book.txt)) {
        notice $nick  $read(Book.txt,%s)
        inc %s
        continue
      }
    }
    on *:text:!clear*:#wob: { 
      if ($nick isop $chan) {
        if ($1 == !clear) { notice $nick 13You are about to clear the list, please type 9!clear confirm13. }
        if ($1- == !clear confirm) { notice $nick 13List Cleared. | .remove Book.txt }
      }