#!/bin/rc
if(! ~ $#* 1 || ! ~ $1 *@*){
	echo 'usage: ☞ [user]@machine' >[1=2]
	exit usage
}
host = `{ndb/dnsgetip `{echo $1 | sed 's/.*@//'}}
</net/tcp/clone{
	con = /net/tcp/`{read}
	echo -n connect $host^!79 > $con/ctl
	echo $1 | sed 's/@.*/
/' > $con/data
	tr -d 
 < $con/data
}