\a
=result
5
=ctr
:loop
$result
dup
cat
=result
$ctr
dec
=ctr
$ctr
0
>loop
gne
$result
\.txt
cat