#!/bin/sh

cat <<EOF
%------------------------------------------------------------------------------%
% $1
% $([ -n "$USERNAME" ] && echo $USERNAME "")<$USER@$(hostname -d)>
% $(date)
% vim: ft=mercury ff=unix ts=4 sw=4 et
%
%------------------------------------------------------------------------------%

:- module $(echo $1 | sed 's/\./__/g;s/__m$//').

:- interface.

:- import_module io.



:- pred main(io::di, io::uo) is det.

%------------------------------------------------------------------------------%
%------------------------------------------------------------------------------%

:- implementation.

:- import_module .

%------------------------------------------------------------------------------%

main -->

%------------------------------------------------------------------------------%
%------------------------------------------------------------------------------%
EOF