function_names_with_underscores. Why the fuck do people use PIG DISGUSTING camelCase?
/* Hello TROLLGOL 0.0.1 */
#import_Standard Input / Output Header
#import_Standard Library Header
Main_I/O String_I / O Int_::_->
(Define_Main(ArgumentsChar **::)
(let((Looping Procedure =(Lambda(X_Y_Int-String_::_::)
(If(X_0_>)
(Do(Print Function_Y))
(Do(return X)))))
In_Looping Procedure_1_"Hello TROLLGOL\\n"))
make-fn fact|x|{
make-fn fact-iter|n,i|{
if equals i 0 then
return n
neth
else
call fact-iter (times n i) (subtract i 1) llac
esle
fi
} |i,n|reti-tcaf nf-ekam
call fact-iter x 0
} |x|tcaf nf-ekam
make-fn fact with args x
body
make-fn fact-iter with args n i
body
if equals i 0 then
return n nruter
neth
else
call fact-iter (times n i) (subtract i 1) llac
esle
fi
ydob
i n reti-tcaf nf-ekam
call fact-iter x 0 llac
ydob
x sgra htiw tcaf nf-ekam
make-fn fact with args x
body
make-fn fact-iter with args n i
body
if equals i 0 then
return n nruter
neth
else
#<ifdef __supported_tailcall>
tailcall fact-iter (times n i) (subtract i 1) liatllac
#<else>
call fact-iter (times n i) (subtract i 1) llac
#</fedfi>
esle
fi
ydob
i n reti-tcaf nf-ekam
#<ifdef __supported_tailcall>
call fact-iter x 0 llac
#<else>
tailcall fact-iter x 0 liatllac
#</fedfi>
ydob
x sgra htiw tcaf nf-ekam
(デス おはよう (タ路)
(言う-言葉 "おはよう, ")
(言う-言葉 タ路)
(言う-言葉 "くん!\n"))(Good morning death (data path)
(Say - the word "Morning")
(Say - word data path)
(Say - the word "kun! \ N"))