--- a/tools/pas2c.hs	Sat Nov 03 23:28:42 2012 +0400
+++ b/tools/pas2c.hs	Sat Nov 03 23:44:49 2012 +0100
@@ -1,5 +1,5 @@
 {-# LANGUAGE ScopedTypeVariables #-}
-module Pas2C where
+module Main where
 
 import Text.PrettyPrint.HughesPJ
 import Data.Maybe
@@ -1084,3 +1084,4 @@
 op2C "/" = "/(float)"
 op2C a = a
 
+main = pas2C "hwengine"