CAS command question

[compsystems]

In other words, I want to extract the numerator from the input a/b
How can you do this in hp-prime using CAS commands? Without converting the entry into a text string

purge(x,y);
numer(x/y); ⇒ x // ok
numer(10/2) ⇒ 5 // =( ⇒ 10

part(x/y,1); ⇒ x // ok
part(10/2,1) ⇒ 5 // =( ⇒ 10

PHP Code:

#cas
  testNumeratorCAS( arg0 ):=
  begin
     local expr1, expr2;
     expr1 := "'" + arg0 + "'"; 
     //expr2 := quote( arg0 );
     //expr2 := numer( arg0 );      
     expr2 := numer (expr( expr1) );
     return expr2;
  end;
 // testNumeratorCAS( x/y ); ⇒ x
 // testNumeratorCAS( 10/2 ); ⇒ 5
#end