Adding haskel code