/*     ~s;$;    /qqq xxxxx  qqq/;s0-qqq-*-s;xxxxx;
       ~s;/\*;  &;
       ~s;      /\*;/\*;
*/
#define function     /*  this is just used by the indenter  */

#define then     {
#define elsif    } else if
#define els      } else  {
#define fi       }

#define forever  for (;;) {
#define upto(indx,from,tooo,by) (indx=from; indx <=(tooo)  ; indx=indx+by) {
#define downto(indx,from,tooo,by) (indx=from; indx >=(tooo); indx=indx+by) {
#define rof      }

#define select(a) switch(a) {
#define esac     }

#define or ||
#define and &&

#define PI	3.1415926536
#define DEGRAD	0.01745329
#define RADDEG	57.2957795