print TQIS::Primitive::typeis("1") ;
> string
  print TQIS::Primitive::typeis(1) ;
> integer