/* this actually works. 2005-11-28 */

use Array:all;
use Math:all;
use SimplePrint:all;

inline int[.] iotaXII(int shp)
{ /* Index generator on scalar */
/* HELP! Needs domain check for negative shp */
 res = with( . <= [i] <= .)
 genarray( [(shp)], i);
 return( res);
}

inline int[*] rotrBII(bool x, int[*] y)
{ /* Scalar rotate matrix last axis */
 k = toi(x);
 z = rotate(_dim_(y)-1, -k, y);
 return (z);
}


int main()
{
  v3=iotaXII(0);
  v4=rotrBII(true,v3);
 z=print(v3);
 z+=print(v4);


return(z);

}