%%HP: T(1)A(R)F(.);
 CLEAR
"Decimal to fration
Enter decimal number"
"" INPUT OBJ  N
   N Q
  

