algebraic_data_type.hs

data Tree = Empty
          | Leaf Int
          | Node Tree Tree

algebraic_data_type.scala

sealed trait Tree[T]
case object Empty extends Tree[Nothing]
case class Leaf[T](value: T) extends Tree[T]
case class Node[T](left: Tree[T], right: Tree[T]) extends Tree[T]