Index: tools/smaz.adb
==================================================================
--- tools/smaz.adb
+++ tools/smaz.adb
@@ -656,18 +656,18 @@
                New_Line (Output);
                Put_Line (Output, Indent & Indent
                  & "Do not output filtered results in a S-expression");
 
             when Options.Output_Ada_Dict =>
-               Put_Line (Output, "=[filename]");
+               Put_Line (Output, " [filename]");
                Put_Line (Output, Indent & Indent
                  & "Output the current dictionary as Ada code in the given");
                Put_Line (Output, Indent & Indent
-                 & "file, or standard output if filename is ""-""");
+                 & "file, or standard output if filename is empty or ""-""");
 
             when Options.Output_Hash =>
-               Put_Line (Output, " <Hash Package Name>");
+               Put_Line (Output, " <Hash_Package_Name>");
                Put_Line (Output, Indent & Indent
                  & "Build a package with a perfect hash function for the");
                Put_Line (Output, Indent & Indent
                  & "current dictionary.");
 
@@ -702,31 +702,31 @@
                New_Line (Output);
                Put_Line (Output, Indent & Indent
                  & "Output the dictionary as a S-expression");
 
             when Options.Min_Sub_Size =>
-               New_Line (Output);
+               Put_Line (Output, " <length>");
                Put_Line (Output, Indent & Indent
                  & "Minimum substring size when building a dictionary");
 
             when Options.Max_Sub_Size =>
-               New_Line (Output);
+               Put_Line (Output, " <length>");
                Put_Line (Output, Indent & Indent
                  & "Maximum substring size when building a dictionary");
 
             when Options.Max_Word_Size =>
-               New_Line (Output);
+               Put_Line (Output, " <length>");
                Put_Line (Output, Indent & Indent
                  & "Maximum word size when building a dictionary");
 
             when Options.Evaluate =>
                New_Line (Output);
                Put_Line (Output, Indent & Indent
                  & "Evaluate the dictionary on the input given corpus");
 
             when Options.Job_Count =>
-               New_Line (Output);
+               Put_Line (Output, " <number>");
                Put_Line (Output, Indent & Indent
                  & "Number of parallel jobs in long calculations");
 
             when Options.Filter_Threshold =>
                Put_Line (Output, " <threshold>");