orderLists := proc(num1,num2)
	local len1, len2,i:
	len1,len2 := numelems(num1),numelems(num2):
	for i to min(len1,len2) do
		if num1[i] <> num2[i] then
			return evalb(num1[i]<num2[i]):
		end if:
	end do:
	return evalb(len1 < len2):
end proc: