(Program
  (Match
  { (Float)
  ->(Float) }
    (
      (Pattern
        (Float)
        (
          (Float)))
      (Pattern
        (Float)
        (
        { (Float)
        ->(Float) }))
      (Pattern
        (Float)
        (
          (Float)))))
  (Empty))