1 2 3 4 5 6
#!/bin/sh echo 'module GF.Today (today) where' > GF/Today.hs echo 'today :: String' >> GF/Today.hs echo 'today = "'`date`'"' >> GF/Today.hs