WIP: Algebraic data types in JS

ADT.js

const ADT = cls => variations => {
  let package = {}
  package[cls] = class {}
  
  variations.forEach(([name, ...args]) =>
    package[cls][name] = function(...args) {
      
    }
    package[cls][name].name = name
    package[cls][name].prototype = package[cls]
  )
  return package[cls]
}

const caseof = cases => data => {
  const case = cases.find(([kind]) => data.constructor === kind)
  return case && case[1](data)
}