function DivInt takes integer a, integer b returns integer
 return (a - ModuloInteger(a,b))/b
endfunction
function CharIsSpec takes string char returns boolean
 return (char == "!") or (char == "?") or (char == " ") or (char == "")
endfunction
function ParseString takes string s, integer width returns string
 local string result = ""
 local integer i = 1
 local integer len = StringLength(s)
 local integer linecount =  DivInt(len,width)+1
 local string array char
 loop
  exitwhen i > linecount
  set char[1] = SubString(s,i*width,i*width+1)
  set char[2] = SubString(s,i*width+1,i*width+2) 
  if (not CharIsSpec(char[1])) and (not CharIsSpec(char[2])) and (i*width < len) then
   set result = result + SubString(s,(i-1)*width,i*width+1)+"- |n"
  else
   set result = result + SubString(s,(i-1)*width,i*width+1)+" |n"
  endif
  set i = i + 1
 endloop
 set len = 0
 set i = 0
 set linecount = 0
 return result
endfunction