add 2/ and 2*

core.fth

@@ -30,6 +30,8 @@
 : xor    ^ ;
 : lshift << ;
 : rshift >> ;
+: 2*     2 * ;
+: 2/     2 / ;
 
 : ,      here ! 1 allot ;
 : c!     ! ;