/module {
   dup mul exch dup mul add sqrt
} def
/norme {
   dup mul exch dup mul add sqrt
} def