// This is a test
#include pv.sdf

proc (1) = calc(local__row, fin);
    if local__row;
        nr = local__row;
    else;
        k = colsf(fin);
        nr = floor(minc(maxbytes/(k*8*3.5)|maxvec/(k+1)));
    endif;
    retp(nr);
endp;

s = "{% test string %}";

fn twopi=pi*2;

/* Takes in multiple numbers.
   Output sum */
keyword add(str);
   local tok,sum;
   sum = 0;
   do until str $== "";
      { tok, str } = token(str);
      sum = sum + stof(tok);
   endo;
   print "Sum is: " sum;
endp;
