on *:TEXT:!setgreet*:#: {
  set %greet $+ $address($nick,4) $2-
}
msg $chan 4Greet 11Set 4for11 $nick
}

on *:TEXT:!saygreet*:#: {
msg $chan  $Nick $+ :  $eval($+(%,greet,$address($Nick,4)),2)
}