A thing made by CLP

Elm

module Poo type alias Poo = Arg Int | Poo Float a : Poo -> Poo a plop = case plop of Arg i -> Poo (toFloat i) Poo f -> Arg (floor f)

const x = 1; function a() { return x%2; }