define real a 
compute a rms aaa 
say "Rms "'a'