rak1507

  {m:(x,x)#til x*x; r:til[x]-x div 2; 2(flip r rotate')/m}