operator<<(const RScalar<T1>& l, const RScalar<T2>& r)
template<class T>  ostream& operator<<(ostream& s, const RComplex<T>& d)
operator<<(const RScalar<T1>& l, const RScalar<T2>& r){  typename BinaryReturn<RScalar<T1>, RScalar<T2>, OpLeftShift>::Type_t  d;  d.elem() = l.elem() << r.elem();  return d;}