(map (lambda(x)
	(if (number? x) (list 'num x)
	    (list 'nonnum x))
     )
'( e 3 r 5 6 (5) ))

( define ( gd x )
  ( list
    ( map car x )
    ( map cadr x )
) )
(gd '( (a 1) (b 2) (e 3) (r 5) (f -6) ) )