First haskel example