# -*- mode: ada -*-
# name: procedure
# key: proc
# --
procedure $1	is
	  $2
begin
	$3
end $1;
$0