diff --git a/20230418/catcan.red b/20230418/catcan.red
new file mode 100644
index 0000000000000000000000000000000000000000..74cbb3d1388d9cd0ee089b4b0ecba9a6eda30f3b
--- /dev/null
+++ b/20230418/catcan.red
@@ -0,0 +1,23 @@
+;name Cat Can
+;author A. Kirchner, F. Uy
+;assert 1
+;
+; Your basic two sweep methodical bomber.
+; Fires SPL 0 and JMP -1 at every eight
+; addresses, then erases the core with
+; DAT bombs.
+
+start     mov       trap2,   < bomb
+          mov       trap1,   < bomb
+          sub     # 6,         bomb
+          jmn       start,     bomb ; trap loop
+set       mov     # -12,       bomb
+kill      mov       bomb,    @ bomb
+          djn       kill,      bomb ; kill loop
+reset     jmp       set,       0
+          jmp       set,       0
+          dat     # 0,       # 0    ; buffer
+bomb      dat     # 0,       # -1024
+trap1     spl       0,         2
+trap2     jmp       -1,        1
+          end       start