{ this is a multi-line comment
line 2
line 3
}
package ics4410 is

type{comment}	students is record
		grades: array(1..40) of float;
		id : array (1..40) of integer;
	end record;
private  --comment
	procedure whatever( x: in out float );
        function whichever(y: in string): integer;
body
	ics4410programs : array ( 1..23 ) of students;
begin
	loop
		exit when ok,
	end loop;
	if morethan < > <= >= == <> 30 then
			gocrazy( "\"help\"" );
		elsif studentnumber < > <= >= == <> 10 then
			makemyday( "Go Ahead !" );
		else
			fair( "\"\"Let\"s have fun !!" );
		end if;
	whatis.this := 10 + - * / 3.67;
	read( my.lips );
	write( good.program );
        return something;
end