Bitleft/3

Этот предикат выполняет побитовый сдвиг влево.

bitleft(X,N,Y) /*(i,i,o)*/

При этом X представляется в виде 16-разрядного двоичного числа, за-

тем оно сдвигается влево на число разрядов, определенное в N. Оставшиеся

справа разряды заполняются нулями.