diff --git a/6502/C64/tests/ans-shim.fth b/6502/C64/tests/ans-shim.fth
index c8d1d99..59d212d 100644
--- a/6502/C64/tests/ans-shim.fth
+++ b/6502/C64/tests/ans-shim.fth
@@ -7,3 +7,8 @@
 
 : invert  not ;
 
+: lshift  0 DO 2* LOOP ;
+
+: rshift  0 DO 2/ 32767 and LOOP ;
+
+: 2over  3 pick 3 pick ;