#!/bin/rc
# d: en-fi or fi-en (-f) dictionary
rfork e
fn usage{
	echo 'usage: d [-f] word' >[1=2]
	exit usage
}
lang='&l=3&l2=17' # en-fi
while(~ $1 -*){
	switch($1){
	case -f
		lang='&l=17&l2=3' # fi-en		
	case *
		usage
	}
	shift
}
if(~ $#* 0)
	usage
echo $1
hget 'http://www.sanakirja.org/search.php?q='^$1^$lang |
htmlfmt |
sed -n '
	/• en-fi/,$ {
		/^[0-9]+\.$/ {
			N
			s/\n/ /
		}
		p
	}
'