[simantics/platform.git] / Matching6.scl

import "Prelude"

main = do 
    match 1+1 :: Integer with
        2 -> 2
        0 -> 0
        1 -> 1
--
2