fn setlang {
	args = $*
	if {~ $#args 1 2} {
		(a, b) = $args
		com = $a
		lang = ''
		and {~ $#b 1} {~ $b -e -j} {
			lang = $b
		}
		if {~ lang ''} {
			wl = `{tee $pid.tmp | whichlang}
			if {~ $wl en} {
				lang = -e
			} {~ $wl ja} {
				lang = -j
			}
		}
		if {test -f $pid.tmp} {
			$com $lang < $pid.tmp
			rm -f $pid.tmp
		} {
			$com $lang
		}
	}
}