Import Debian changes 20180207-1
[hcoop/debian/mlton.git] / regression / cycle.sml
1 datatype t = T of u | V
2 and u = U of t * t
3
4 fun f V = T (U (f V,f V))
5 | f (T _) = V
6
7 val _ = f V