Function: _<<_
Section: symbolic_operators
C-Name: gshift
Prototype: GL
Help: x<<y: compute shift(x,y).
Description:
 (int, small):int               shifti($1, $2)
 (mp, small):mp                 mpshift($1, $2)
 (gen, small):mp                gshift($1, $2)
