`ptozp'
-------

ptozp(POLY)
     :: POLY ͭܤ¿༰ˤ.

RETURN
     ¿༰
POLY
     ¿༰

   * Ϳ줿¿༰ POLY Ŭͭݤ, ķ 
     GCD  1 ˤʤ褦ˤ.
   * ʬλ§黻, α黻Ӥ٤, ¿༰黻
     , ¿༰ˤƤȤ˾ޤ.
   * ͭʬ `red()' ʬͭʬƤ, ʬ¿༰
     ηͭΤޤޤǤ, ͭʬҤ`nm()' Ǥ, ʬ
     ¿༰, ʬΤޤޤηǽϤ뤿, ľ
     ¿༰Ͻʤ.

     [0] ptozp(2*x+5/3);
     6*x+5
     [1] nm(2*x+5/3);   
     2*x+5/3


     `nm', `dn'

