|
#lang transd
|
|
|
|
MainModule: {
|
|
_start: (λ locals: b 1 c 0
|
|
(textout (if b "OK" else "NO") "\n")
|
|
|
|
// switch/case emulation
|
|
|
|
(textout (* 5
|
|
(if (== b 0) 2
|
|
elsif (== b 1) 5
|
|
else 6)) "\n")
|
|
|
|
// example of using 'or' as a conditional construct
|
|
|
|
(or (!= c 0) (textout "c is 0"))
|
|
)
|
|
}
|