@@ -69,6 +69,7 @@ pub fn generate_jets() -> Jets {
6969 (132848439781269254342687684309700447927, CUT),
7070 (184331043431916214773639930303095454137, FIL),
7171 (104452959965816676316166435675758878521, LSH),
72+ (84358434946425438379820219100952030132, RSH),
7273 ])
7374}
7475
@@ -667,3 +668,11 @@ static LSH: Jet = |_ctx, n| {
667668
668669 Rc::new(Noun::Atom(b << a.bits()))
669670};
671+
672+static RSH: Jet = |_ctx, n| {
673+ let (a, b) = n.as_cell().unwrap();
674+ let a = a.as_bite().unwrap();
675+ let b = b.as_atom().unwrap();
676+
677+ Rc::new(Noun::Atom(b >> a.bits()))
678+};