bernsteinbear.com
this repo has no description
1greet <| person:ron 3
2
3. greet :: person -> text =
4 | :cowboy -> "howdy"
5 | :ron n -> "hi " ++ a ++ "ron" , a = text/repeat n "a"
6 | :parent :m -> "hey mom"
7 | :parent :f -> "greetings father"
8 | :friend n -> "yo" |> list/repeat n |> string/join " "
9 | :stranger "felicia" -> "bye"
10 | :stranger name -> "hello " ++ name
11
12. person =
13 : cowboy
14 : ron int
15 : parent s , s = (: m : f)
16 : friend int
17 : stranger text