.do xflag 3
.
.TL
FizzBuzz
.AU
Nakidai Perumenei
.
.PP
.
.\" Div Divident Divisor -> Quo Rem
.de Div
.nr Rem \\$1
.nr Quo 0
.while \\n[Rem]>=\\$2 \\{\
.	nr Rem -\\$2\
.	nr Quo +1\
.\\}
..
.
.nr cnt 0 1
.while \n[cnt]<100 \{
.	IP [\n+[cnt]]
.	Div \n[cnt] 3
.	nr Rem3 \n[Rem]
.	Div \n[cnt] 5
.	nr Rem5 \n[Rem]
.	Div \n[cnt] 15
.	nr Rem15 \n[Rem]
.	if !\n[Rem15] \{
FizzBuzz
.	continue
.	\}
.	if !\n[Rem3] \{
Fizz
.	continue
.	\}
.	if !\n[Rem5] \{
Buzz
.	continue
.	\}
.\}