alias smile1 { return :) }
alias smile {
  :s0
  set %smile1 $rand(2,15)
  if (%smile1 = 8) { goto s0 }
  if (%smile1 = 11) { goto s0 }
  :s1
  set %smile2 $rand(2,15)
  if (%smile1 = %smile2) { goto s1 }
  if (%smile2 = 8) { goto s1 }
  if (%smile2 = 11) { goto s1 }
  goto $rand(1,3)
  :1
  return $chr(2) $+ $chr(3) $+ %smile1 $+ : $+ $chr(2) $+ $chr(3) $+ %smile2 $+ ) 
  :2
  return $chr(2) $+ $chr(3) $+ %smile1 $+ : $+ $chr(2) $+ $chr(3) $+ %smile2 $+ D 
  :3
  return $chr(2) $+ $chr(3)  $+ %smile1 $+ : $+ $chr(2) $+ $chr(3) $+ %smile2 $+ P 
}

on *:INPUT:*:{ if ($1 = $smile1) { if (%smile = yes) { haltdef | .say $smile } } }