Feat: prelude and new words

crates/forth/src/words/compile.rs

@@ -20,6 +20,12 @@ pub(super) fn simple_op(name: &str) -> Option<Op> {
         "2drop" => Op::Drop2,
         "2swap" => Op::Swap2,
         "2over" => Op::Over2,
+        "rev" => Op::Rev,
+        "shuffle" => Op::Shuffle,
+        "sort" => Op::Sort,
+        "rsort" => Op::RSort,
+        "sum" => Op::Sum,
+        "prod" => Op::Prod,
         "+" => Op::Add,
         "-" => Op::Sub,
         "*" => Op::Mul,
@@ -83,6 +89,7 @@ pub(super) fn simple_op(name: &str) -> Option<Op> {
         "oct" => Op::Oct,
         "clear" => Op::ClearCmd,
         ".." => Op::IntRange,
+        ".," => Op::StepRange,
         "gen" => Op::Generate,
         "geom.." => Op::GeomRange,
         "times" => Op::Times,