#
# sub.jako
#
# A program to demonstrate macros and poor-man's subroutine
# calls.
#
# Copyright (C) 2001 Gregor N. Purdy. All rights reserved.
# This program is free software. It is subject to the same
# license as Perl itself.
#
# $Id: sub.jako,v 1.1 2001/10/05 16:54:46 gregor Exp $
#

var int x;

sub printit {
  print("$x\n");
}

x = 42;
printit();

x = 1234;
printit();