week1 in Haskel