how to do construct a binary tree in hakell