#!/usr/local/bin/rune -x
#
# Demonstrate constant types.   Constants in Rune are effectively what
# '#define BLAH 23' would be in C, except they are specifically typed.

import "sys";
import <stdio>;

alias stdio.File *stdout = stdio.stdout;

const char NIL = 0UB;

double D1 = 1.0;
double D2 = 2.0;
double D3 = 3.0;
double D4 = 4.0;

public 
int
main(int ac, char **av)
{
	double d1;
	double d2;
	double d3;
	double d4;

	d1 = D1;
	d2 = D2;
	d3 = D3;
	d4 = D4;
	d1 += d2;
	d1 += d3;
	d1 += d4;
	d2 *= d1;
	d3 /= d1;
	d4 *= d1;

	return(0);
}