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