diff --git a/topiclister/Program.cs b/topiclister/Program.cs
new file mode 100644
index 0000000..ea65dd7
--- /dev/null
+++ b/topiclister/Program.cs
@@ -0,0 +1,30 @@
+using franz;
+using System;
+using System.Linq;
+
+namespace topiclister
+{
+    class Program
+    {
+        static void Main(string[] args)
+        {
+            Telefranz.Configure("shut up", "localhost:9092");
+            var listOfBs = AppDomain.CurrentDomain.GetAssemblies()
+              .SelectMany(domainAssembly => domainAssembly.GetTypes())
+              .Where(type => type.IsSubclassOf(typeof(gray_messages.message)) && !type.IsAbstract)
+              .ToList();
+
+            if (listOfBs != null && listOfBs.Any())
+            {
+                foreach (var b in listOfBs)
+                {
+                    Console.WriteLine(b);
+                }
+            }
+            else
+            {
+                Console.WriteLine(":(");
+            }
+        }
+    }
+}
\ No newline at end of file
diff --git a/topiclister/topiclister.csproj b/topiclister/topiclister.csproj
new file mode 100644
index 0000000..ac85f5e
--- /dev/null
+++ b/topiclister/topiclister.csproj
@@ -0,0 +1,12 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <ItemGroup>
+    <ProjectReference Include="..\franz\franz.csproj" />
+  </ItemGroup>
+
+  <PropertyGroup>
+    <OutputType>Exe</OutputType>
+    <TargetFramework>net6.0</TargetFramework>
+  </PropertyGroup>
+
+</Project>