type int_array = array of int
function sort(a : int_array, size : int) =
	if size > 0 then
	(
		let var swapped := 0
		in
			for i := 0 to size do
			(
				swapped := 0;
				(for j := 1 to size - i - 1 do
					if a[j - 1] > a[j] then
					(
						(let var tmp := a[j - 1]
						in
							a[j - 1] := a[j];
							a[j] := tmp
						end);
						swapped := 1
					));
				if swapped = 0 then
					break
			)
		end
	)