vastly improved selection system

crates/forth/src/words.rs

@@ -755,6 +755,14 @@ pub const WORDS: &[Word] = &[
         example: "140 tempo!",
         compile: Simple,
     },
+    Word {
+        name: "speed!",
+        category: "Time",
+        stack: "(multiplier --)",
+        desc: "Set pattern speed multiplier",
+        example: "2.0 speed!",
+        compile: Simple,
+    },
     Word {
         name: "chain",
         category: "Time",
@@ -1909,6 +1917,7 @@ pub(super) fn simple_op(name: &str) -> Option<Op> {
         "_" => Op::Silence,
         "scale!" => Op::Scale,
         "tempo!" => Op::SetTempo,
+        "speed!" => Op::SetSpeed,
         "[" => Op::ListStart,
         "]" => Op::ListEnd,
         ">" => Op::ListEndCycle,