(;alias-lux)

(def (filter p xs)
  (All [a] (-> (-> a Bool) (List a) (List a)))
  (case xs
    #;Nil
    (list)

    (#;Cons [x xs'])
    (if (p x)
      (list& x (filter p xs'))
      (filter p xs'))))

(jvm-program _
  (exec (println "Hello, world!")
        (println ($ text:++ "2 + 2 = " (->text (int:+ 2 2))))
        (println (->text (using Int:Ord
                           (< 5 10))))))