Implement int shift primitives

compiler/src/l3/CPSValueRepresenter.scala

@@ -32,6 +32,27 @@ object CPSValueRepresenter extends (H.Tree => L.Tree) {
             }
           }
         }
+
+      // I don't think there is a way to do this in a smart way
+      case L3.IntDiv => ???
+      case L3.IntMod => ???
+
+      case L3.IntShiftLeft =>
+        tempLetP(CPS.Sub, Seq(Left(x), lAtomOne)) { x1 => 
+          tempLetP(CPS.ShiftRight, Seq(Left(y), lAtomOne)) { y1 => 
+            tempLetP(CPS.ShiftLeft, Seq(Right(x1), Right(y1))) { z => 
+              L.LetP(n, CPS.Add, Seq(z, L.AtomL(1)), apply(body))
+            }
+          }
+        }
+
+      case L3.IntShiftRight =>
+        tempLetP(CPS.ShiftRight, Seq(Left(y), lAtomOne)) { y1 =>
+          tempLetP(CPS.ShiftRight, Seq(Left(x), Right(y1))) { z => 
+            L.LetP(n, CPS.Add, Seq(z, L.AtomL(1)), apply(body))
+          }
+        }
+
     }
   }