' FB 1.05.0 Win64
#Macro ForAll(C, S)
For _i as integer = 0 To Len(s)
#Define C (Chr(s[_i]))
#EndMacro
#Define In ,
Dim s As String = "Rosetta"
ForAll(c in s)
Print c; " ";
Next
Print
Sleep