RosettaCodeData/Task/String-length/Action-/string-length.action

PROC Test(CHAR ARRAY s)
  PrintF("Length of ""%S"" is %B%E",s,s(0))
RETURN

PROC Main()
  Test("Hello world!")
  Test("")
RETURN