3 files changed, 52 insertions, 0 deletions
diff --git a/src/false/false.cr b/src/false/false.cr
new file mode 100644
index 0000000..e26fd89
--- /dev/null
+++ b/src/false/false.cr
@@ -0,0 +1,39 @@
+require "big.cr"
+
+module False
+
+  enum Command
+    DUP # ( n -- n n )
+    DROP # ( n1 n2 -- n1 )
+    SWAP # ( n1 n2 -- n2 n1 )
+    ROT # ( n1 n2 n3 -- n2 n3 n1 )
+    PICK # push the n-th stack item (top of stack is index 0)
+    ADD # ( n1 n2 -- (n1+n2) )
+    SUBTRACT # ( n1 n2 -- (n1-n2) )
+    MULTIPLY # ( n1 n2 -- (n1-n2) )
+    DIVIDE # ( n1 n2 -- (n1/n2) )
+    NEGATE # ( n1 -- (-1*n1) )
+    BAND # ( n1 n2 -- (n1&n2) )
+    BOR # ( n1 n2 -- (n1|n2) )
+    BNOT # invert each bit of top of the stack
+    GREATER # ( n1 n2 -- (n1>n2) )
+    EQUAL # ( n1 n2 -- (n1==n2) )
+    EXECUTE # lambda execution
+    CONDITIONAL # ( cond lambda -- ... ) execute lambda if cond is true, pops both
+    LOOP # ( cond lambda -- ... ) execute lambda repeatedly until cond is false, then pop both
+    STORE # ( value reference -- ) stores value at the given variable reference, pops both
+    FETCH # ( reference -- ) pops the reference and pushes the value stored at the reference
+    READ # read character from STDIN and push its character code
+    WRITE_CHAR # pop the stack and print the value's character ("65," prints "A")
+    WRITE_INT # pop the stack and print the value as an integer ("65." prints "65")
+    FLUSH # flush input and output buffers
+  end
+
+  alias PushInt = BigInt # int literal pushes int
+  alias PushCharCode = Char # char literal ( 'c ) pushes char
+  alias PushVarRef = Char # variable name pushes its address
+  alias WriteString = String # string literal prints the string
+
+  alias Operation = Command | PushInt | PushCharCode | PushVarRef | WriteString
+end
+
diff --git a/src/false/program.cr b/src/false/program.cr
new file mode 100644
index 0000000..18ce3ef
--- /dev/null
+++ b/src/false/program.cr
@@ -0,0 +1,9 @@
+require "./false.cr"
+require "../program.cr"
+
+struct False::Program < Flint::Program
+  def interpret : Nil
+    puts "TODO"
+  end
+end
+
diff --git a/src/flint.cr b/src/flint.cr
index d6de3f4..4fe0ef1 100644
--- a/src/flint.cr
+++ b/src/flint.cr
@@ -6,6 +6,7 @@ require "./util.cr"
 require "./program.cr"
 require "./among_us/*"
 require "./brainfuck/*"
+require "./false/program.cr"
 require "./thue/*"
 
 module Flint
@@ -14,6 +15,7 @@ module Flint
   enum Language
     AmongUs
     Brainfuck
+    False
     Thue
   end
 
@@ -93,6 +95,8 @@ module Flint
     program = case language.not_nil!
       in Language::AmongUs
         AmongUs::Program.new(source_io)
+      in Language::False
+        False::Program.new(source_io)
       in Language::Brainfuck
         begin
           m_str = language_options[:memory_size]?