diff --git a/hmt_parser/main.pas b/hmt_parser/main.pas
new file mode 100644
index 0000000..faf2979
--- /dev/null
+++ b/hmt_parser/main.pas
@@ -0,0 +1,25 @@
+program parse_hmt;
+{$mode objfpc}{$H+}
+
+uses
+  hmt_parser;
+
+var
+  fname: string;
+
+begin
+  if ParamCount < 1 then begin
+      writeln ('no input file specified');
+      exit;
+  end;
+
+  fname := ParamStr(1);
+  writeln('parsing file: ', fname);
+  try
+      ParseHmtFile(fname);
+  except
+      writeln('parsing failed!');
+  end;
+  writeln('done.');
+end.
+