in this line
flpile (Pile (a,(b,c)) = Pile [asocr (a,(b,c))]
you forgot a closing brace at ( Pile (a,(b,c)) )
When you correct that, you'll get an error. That's because the (a,(b,c))
is not a list, as your data definition says. I don't know, what you want to achieve with your code, but you could change it to Pile [(a,(b,c))]
, so it will compile (if that makes any sense for your purpose).