RosettaCodeData/Task/Literals-String/Forth/literals-string-2.fth

: main
  [char] c   emit
  s" string"   type ;