#! /bin/fish -f

foreach foo ($argv)
	if (`mfile $foo` =~ rcp*) then
		rcptomid $foo | smf1to0 - > $foo:r.mid
	endif
end
