' 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