RosettaCodeData/Task/Loops-Foreach/Oforth/loops-foreach-1.fth

: printMonths | m | Date.Months forEach: m [ m . ] ;