lists.sml filled with list functions