#!/usr/bin/perl -P
#define PI printf
#define l37 $l37
#define L37 $L37
#define RR -L37/((-l37>>4)-2)
#define _ l37-->L37||l37-L37--;
#define R(squared) ("%1.2f\013\011",RR);

_-_-_-_-_-_-_-_-_     -_-_-_-_-_-_-_-_-_-_-_
-_-_-_-_-_-_-_-_      -_-_-_-_-_-_-_-_-_-_-_
-_           _-_-             -_-_-_
-_           _-_-             -_-_-_
-_           _-_-             -_-_-_
-_           _-_-             -_-_-_
-_           _-_-             -_-_-_
-__-_-_-_-_-_-_-              -_-_-_
-__-_-_-_-_-_-_               -_-_-_
-_                            -_-_-_
-_                            -_-_-_
-_                            -_-_-_
-_                            -_-_-_
_-                            -_-_-_
_-                            -_-_-_
_-                            -_-_-_
_-                            -_-_-_
_-                    _-_-_-_-_-_-_-_-_-_-_
-_                    _-_-_-_-_-_-_-_-_-_-_-_


        PI R(squared)

Disclaimer: This is an unofficial UMMS page.