-module(h).
-export([m/0]).
f(X,Y)->io:format(X,Y).
m()->A=[fif,six,seven,eigh,nine],B=[zero,one,two,three,four,five,six,seven,eight,nine],[f("~p~n",[X])||X<-B++[ten,eleven,twelve]],[f("~pteen~n",[X])||X<-[thir,four|A]],[f(if Y>z->"~pty~i~n";0<1->"~pty ~p~n"end,[X,Y])||X<-[twen,thir,for|A],Y<-B],f("~s",["one hundred"]).
Note that non-ascii characters in the above source code will be escaped (such as \x9f).