TY=$1
shift
case $TY in
coo|pos) op-info info.coo $TY $* ;;
rpm|apm) op-info info.pm $TY $* ;;
esac