alias puush {
  sockclose getpuush
  sockopen getpuush puu.sh 80
  noop $regex(puush,$1-,/puu.sh\/(.+)/)
  %puush = $regml(puush,1)
}
on 1:sockopen:getpuush: {
  sockwrite -nt $sockname GET / $+ %puush HTTP/1.1
  sockwrite -nt $sockname Host: Puu.sh
  sockwrite -nt $sockname $crlf $crlf
}
on 1:sockread:getpuush: {
  var %read
  sockread %read
  if ($left(%read,2) == ;;) {
    noop $regex(title,%read,/;;(.+)/)
    set %title $replace($regml(title,1),$chr(32),_)
  }
  while (%title) {
    write $+($mircdirscripts/,%title,.mrc) %read
    var %read
    sockread %read
    if (%read == ;end) {
      unset %puush
      sockclose getpuush
      if ($me == $me) {
        load -rs $+($mircdirscripts/,%title,.mrc)
        unset %title
      }
    }
  }
}