alias pastebin {
  if ($sock(pastebin)) {
    sockclose pastebin 
  }
  else {
    set -u5 %paste $1
    sockopen pastebin pastebin.ca 80
    sockmark pastebin echo @paste
    $iif(!$window(@paste),window -e @paste)
  } 
}
on *:sockopen:pastebin: { 
  sockwrite -nt $sockname GET / $+ %paste HTTP/1.1 
  sockwrite -nt $sockname Host: pastebin.ca $+ $crlf 
  sockwrite -nt $sockname $crlf
} 
on *:sockread:pastebin: {
  if (!$sockerr) {
    var %pastebin
    sockread %pastebin
    if (*<title>general pastebin - * - post number *</title>* iswm %pastebin) {
      $sock($sockname).mark $remove(%pastebin,<title>,</title>)
    }
  }
}
on *:sockclose:pastebin: {
  sockclose $sockname
}