#! ./srexx2

call do 'left2("", 9, "+")'
call do 'left2("The", 14)'
call do 'left2("The", 2)'
call do 'left2("The blue  sky", 24)'
call do 'left2("The blue  sky", 0)'
call do 'pi2(100)'

say localtime(3603)

/*
 * Errors
 */
tab.1 = 'say left2()'
tab.2 = 'say left2(,)'
tab.3 = 'say left2("The blue  sky",)'
tab.4 = 'say left2("The blue  sky", -1)'
tab.5 = 'say left2("The blue  sky", "a")'
tab.6 = 'say left2("The blue  sky", 14, "+", 4)'
tab.7 = 'say dummY1("The blue  sky", 14, "++")'
tab.8 = 'call left2'
arg n .
if n ~= '' then interpret tab.n

exit

do:
   parse arg __a__

   sayn  __a__': '
   interpret "say ""'"""__a__"""'"""

   return
