Code from week1 of Ada