Added td1 for haskell
Added main loop
Added Peano