diff --git a/week18/CodeKata18.pl6 b/week18/CodeKata18.pl6
new file mode 100644
index 0000000..4964957
--- /dev/null
+++ b/week18/CodeKata18.pl6
@@ -0,0 +1,9 @@
+#!/usr/bin/env perl6
+
+sub MAIN(Int $n where 1E9 >= * >= 1) {
+    say getReverseBinaryNumbers($n);
+}
+
+sub getReverseBinaryNumbers($x) {
+    return :2($x.base(2).flip);
+}