%% syntaxe~: A B coeffdir
/coeffdir {
   vecteur exch div
} def