#include <perms.h>

                                                                //      1  %begin
#line 1 "regression-bugs-tmp/mouses-print.imp"
int main(int argc, char **argv) {
  __label__ _imp_endofblock;
  _imp_initialise(argc, argv);
                                                                //      2  
                                                                //      3  %routine mouseswrite(%integer n, p)
_imp_current_line = 3; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 3 "regression-bugs-tmp/mouses-print.imp"
void MOUSESWRITE( int N, int P )
#line 3 "regression-bugs-tmp/mouses-print.imp"
{
  __label__ _imp_endofblock;
                                                                //      4     %string (72) %fn itos(%integer n, p)
_imp_current_line = 4; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 4 "regression-bugs-tmp/mouses-print.imp"
_imp_string /*%string(72)*/ ITOS( int N, int P )
#line 4 "regression-bugs-tmp/mouses-print.imp"
{
  __label__ _imp_endofblock;
                                                                //      5        %byte %array s(0 : 72)
_imp_current_line = 5; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 5 "regression-bugs-tmp/mouses-print.imp"
unsigned char S[73];
                                                                //      6        %integer x, sign
_imp_current_line = 6; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 6 "regression-bugs-tmp/mouses-print.imp"
int X;
#line 6 "regression-bugs-tmp/mouses-print.imp"
int SIGN;
                                                                //      7        x = 73
_imp_current_line = 7; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 7 "regression-bugs-tmp/mouses-print.imp"
X = 73;
                                                                //      8        sign = 0
_imp_current_line = 8; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 8 "regression-bugs-tmp/mouses-print.imp"
SIGN = 0;
                                                                //      9        %if p > 0 %start
_imp_current_line = 9; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 9 "regression-bugs-tmp/mouses-print.imp"
if (((P) <= (0))) goto L_0002;
                                                                //     10           sign = ' '
_imp_current_line = 10; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 10 "regression-bugs-tmp/mouses-print.imp"
SIGN = 32;
                                                                //     11           p = 72 - p
_imp_current_line = 11; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 11 "regression-bugs-tmp/mouses-print.imp"
P = (((int)(72)) - (P));
                                                                //     12        %else
_imp_current_line = 12; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 12 "regression-bugs-tmp/mouses-print.imp"
goto L_0003;
#line 12 "regression-bugs-tmp/mouses-print.imp"
L_0002:;
                                                                //     13           p = p + 73
_imp_current_line = 13; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 13 "regression-bugs-tmp/mouses-print.imp"
P = (((int)(P)) + (73));
                                                                //     14        %finish
_imp_current_line = 14; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 14 "regression-bugs-tmp/mouses-print.imp"
L_0003:;
                                                                //     15        p = 1 %if p <= 0
_imp_current_line = 15; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 15 "regression-bugs-tmp/mouses-print.imp"
if (((P) > (0))) goto L_0004;
#line 15 "regression-bugs-tmp/mouses-print.imp"
P = 1;
#line 15 "regression-bugs-tmp/mouses-print.imp"
L_0004:;
                                                                //     16        %if n < 0 %start
_imp_current_line = 16; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 16 "regression-bugs-tmp/mouses-print.imp"
if (((N) >= (0))) goto L_0005;
                                                                //     17           sign = '-'
_imp_current_line = 17; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 17 "regression-bugs-tmp/mouses-print.imp"
SIGN = 45;
                                                                //     18           n = -n
_imp_current_line = 18; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 18 "regression-bugs-tmp/mouses-print.imp"
N = (-(N));
                                                                //     19           %if n < 0 %start
_imp_current_line = 19; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 19 "regression-bugs-tmp/mouses-print.imp"
if (((N) >= (0))) goto L_0006;
                                                                //     20              !max int
                                                                //     21              n = n // (-10)
_imp_current_line = 21; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 21 "regression-bugs-tmp/mouses-print.imp"
N = (long)((long)((int)(N)) / (long)((int)((-10))));
                                                                //     22              x = x - 1
_imp_current_line = 22; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 22 "regression-bugs-tmp/mouses-print.imp"
X = (((int)(X)) - (1));
                                                                //     23              s(x) = '8'
_imp_current_line = 23; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 23 "regression-bugs-tmp/mouses-print.imp"
S[X] = 56;
                                                                //     24           %finish
_imp_current_line = 24; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 24 "regression-bugs-tmp/mouses-print.imp"
L_0006:;
                                                                //     25        %finish
_imp_current_line = 25; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 25 "regression-bugs-tmp/mouses-print.imp"
L_0005:;
                                                                //     26        %cycle 
_imp_current_line = 26; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 26 "regression-bugs-tmp/mouses-print.imp"
L_0007:;
                                                                //     27           x = x - 1
_imp_current_line = 27; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 27 "regression-bugs-tmp/mouses-print.imp"
X = (((int)(X)) - (1));
                                                                //     28           s(x) = rem(n, 10) + '0'
_imp_current_line = 28; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 28 "regression-bugs-tmp/mouses-print.imp"
S[X] = (((int)(_imp_REM(N, 10))) + (48));
                                                                //     29           n = n // 10
_imp_current_line = 29; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 29 "regression-bugs-tmp/mouses-print.imp"
N = (long)((long)((int)(N)) / (long)((int)(10)));
                                                                //     30        %repeat %until n = 0
_imp_current_line = 30; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 30 "regression-bugs-tmp/mouses-print.imp"
if (((N) == (0))) goto L_0008;
#line 30 "regression-bugs-tmp/mouses-print.imp"
goto L_0007;
#line 30 "regression-bugs-tmp/mouses-print.imp"
L_0008:;
                                                                //     31        %if sign # 0 %start
_imp_current_line = 31; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 31 "regression-bugs-tmp/mouses-print.imp"
if (((SIGN) == (0))) goto L_000a;
                                                                //     32           x = x - 1
_imp_current_line = 32; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 32 "regression-bugs-tmp/mouses-print.imp"
X = (((int)(X)) - (1));
                                                                //     33           s(x) = sign
_imp_current_line = 33; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 33 "regression-bugs-tmp/mouses-print.imp"
S[X] = SIGN;
                                                                //     34        %finish
_imp_current_line = 34; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 34 "regression-bugs-tmp/mouses-print.imp"
L_000a:;
                                                                //     35        %while x > p %cycle
_imp_current_line = 35; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 35 "regression-bugs-tmp/mouses-print.imp"
L_000b:;
#line 35 "regression-bugs-tmp/mouses-print.imp"
if (((X) <= (P))) goto L_000c;
                                                                //     36           x = x - 1
_imp_current_line = 36; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 36 "regression-bugs-tmp/mouses-print.imp"
X = (((int)(X)) - (1));
                                                                //     37           s(x) = ' '
_imp_current_line = 37; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 37 "regression-bugs-tmp/mouses-print.imp"
S[X] = 32;
                                                                //     38        %repeat
_imp_current_line = 38; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 38 "regression-bugs-tmp/mouses-print.imp"
goto L_000b;
#line 38 "regression-bugs-tmp/mouses-print.imp"
L_000c:;
                                                                //     39        x = x - 1
_imp_current_line = 39; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 39 "regression-bugs-tmp/mouses-print.imp"
X = (((int)(X)) - (1));
                                                                //     40        s(x) = 72 - x
_imp_current_line = 40; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 40 "regression-bugs-tmp/mouses-print.imp"
S[X] = (((int)(72)) - (X));
                                                                //     41        %result = string(addr(s(x)))
_imp_current_line = 41; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 41 "regression-bugs-tmp/mouses-print.imp"
return *_imp_STRING(_imp_ADDR(&S[X]));
                                                                //     42     %end
_imp_current_line = 42; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 42 "regression-bugs-tmp/mouses-print.imp"
_imp_endofblock: ;
} // End of block ITOS at level 3
                                                                //     43     printstring(itos(n, p))
_imp_current_line = 43; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 43 "regression-bugs-tmp/mouses-print.imp"
_imp_PRINTSTRING(ITOS(N, P));
                                                                //     44  %end
_imp_current_line = 44; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 44 "regression-bugs-tmp/mouses-print.imp"
return;
_imp_endofblock: ;
} // End of block MOUSESWRITE at level 2
                                                                //     45  %routine mousesprintfl(%real r, %integer places)
_imp_current_line = 45; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 45 "regression-bugs-tmp/mouses-print.imp"
void MOUSESPRINTFL( float R, int PLACES )
#line 45 "regression-bugs-tmp/mouses-print.imp"
{
  __label__ _imp_endofblock;
                                                                //     46     %routine round(%real %name v, %integer p)
_imp_current_line = 46; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 46 "regression-bugs-tmp/mouses-print.imp"
void ROUND( float /*name*/*V, int P )
#line 46 "regression-bugs-tmp/mouses-print.imp"
{
  __label__ _imp_endofblock;
                                                                //     47        %real x
_imp_current_line = 47; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 47 "regression-bugs-tmp/mouses-print.imp"
float X;
                                                                //     48        %return %if v = 0
_imp_current_line = 48; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 48 "regression-bugs-tmp/mouses-print.imp"
if (((*V) != (0))) goto L_000e;
#line 48 "regression-bugs-tmp/mouses-print.imp"
return;
#line 48 "regression-bugs-tmp/mouses-print.imp"
L_000e:;
                                                                //     49        %if v < 0 %then x = -0.5 %else x = 0.5
_imp_current_line = 49; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 49 "regression-bugs-tmp/mouses-print.imp"
if (((*V) >= (0))) goto L_000f;
#line 49 "regression-bugs-tmp/mouses-print.imp"
X = (-0.5);
#line 49 "regression-bugs-tmp/mouses-print.imp"
goto L_0010;
#line 49 "regression-bugs-tmp/mouses-print.imp"
L_000f:;
#line 49 "regression-bugs-tmp/mouses-print.imp"
X = 0.5;
#line 49 "regression-bugs-tmp/mouses-print.imp"
L_0010:;
                                                                //     50        %cycle 
_imp_current_line = 50; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 50 "regression-bugs-tmp/mouses-print.imp"
L_0011:;
                                                                //     51           p = p - 1
_imp_current_line = 51; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 51 "regression-bugs-tmp/mouses-print.imp"
P = (((int)(P)) - (1));
                                                                //     52           %exit %if p < 0
_imp_current_line = 52; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 52 "regression-bugs-tmp/mouses-print.imp"
if (((P) >= (0))) goto L_0014;
#line 52 "regression-bugs-tmp/mouses-print.imp"
goto L_0012;
#line 52 "regression-bugs-tmp/mouses-print.imp"
L_0014:;
                                                                //     53           x = x / 10
_imp_current_line = 53; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 53 "regression-bugs-tmp/mouses-print.imp"
X = (double)((double)((float)(X)) / (double)((float)(10)));
                                                                //     54        %repeat
_imp_current_line = 54; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 54 "regression-bugs-tmp/mouses-print.imp"
goto L_0011;
#line 54 "regression-bugs-tmp/mouses-print.imp"
L_0012:;
                                                                //     55        v = v + x
_imp_current_line = 55; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 55 "regression-bugs-tmp/mouses-print.imp"
*V = ((*(float *)(V)) + (X));
                                                                //     56     %end
_imp_current_line = 56; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 56 "regression-bugs-tmp/mouses-print.imp"
return;
_imp_endofblock: ;
} // End of block ROUND at level 3
                                                                //     57     %routine fraction(%real r, %integer places, %string (*) %name s)
_imp_current_line = 57; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 57 "regression-bugs-tmp/mouses-print.imp"
void FRACTION( float R, int PLACES, _imp_string /*%string(255)*/ /*name*/*S )
#line 57 "regression-bugs-tmp/mouses-print.imp"
{
  __label__ _imp_endofblock;
                                                                //     58        %return %if places <= 0
_imp_current_line = 58; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 58 "regression-bugs-tmp/mouses-print.imp"
if (((PLACES) > (0))) goto L_0015;
#line 58 "regression-bugs-tmp/mouses-print.imp"
return;
#line 58 "regression-bugs-tmp/mouses-print.imp"
L_0015:;
                                                                //     59        s = s . "."
_imp_current_line = 59; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 59 "regression-bugs-tmp/mouses-print.imp"
*S = _imp_join((_imp_string)*S,(_imp_string)_imp_str_literal("."));
                                                                //     60        %while places > 0 %cycle
_imp_current_line = 60; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 60 "regression-bugs-tmp/mouses-print.imp"
L_0016:;
#line 60 "regression-bugs-tmp/mouses-print.imp"
if (((PLACES) <= (0))) goto L_0017;
                                                                //     61           places = places - 1
_imp_current_line = 61; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 61 "regression-bugs-tmp/mouses-print.imp"
PLACES = (((int)(PLACES)) - (1));
/*promote*/                                                                //     62           r = fracpt(r) * 10
_imp_current_line = 62; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 62 "regression-bugs-tmp/mouses-print.imp"
R = ((_imp_FRACPT(R)) * ((double)(10)));
                                                                //     63           s = s . tostring(intpt(r) + '0')
_imp_current_line = 63; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 63 "regression-bugs-tmp/mouses-print.imp"
*S = _imp_join((_imp_string)*S,(_imp_string)_imp_TOSTRING((((int)(_imp_INTPT(R))) + (48))));
                                                                //     64        %repeat
_imp_current_line = 64; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 64 "regression-bugs-tmp/mouses-print.imp"
goto L_0016;
#line 64 "regression-bugs-tmp/mouses-print.imp"
L_0017:;
                                                                //     65     %end
_imp_current_line = 65; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 65 "regression-bugs-tmp/mouses-print.imp"
return;
_imp_endofblock: ;
} // End of block FRACTION at level 3
                                                                //     66     {%external} %string (64) %fn ftos(%real r, %integer p)
_imp_current_line = 66; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 66 "regression-bugs-tmp/mouses-print.imp"
_imp_string /*%string(64)*/ FTOS( float R, int P )
#line 66 "regression-bugs-tmp/mouses-print.imp"
{
  __label__ _imp_endofblock;
                                                                //     67        {XOWN}%string (64) s = ""
_imp_current_line = 67; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 67 "regression-bugs-tmp/mouses-print.imp"
_imp_string /*%string(64)*/ S;
#line 67 "regression-bugs-tmp/mouses-print.imp"
S = _imp_str_literal("");
                                                                //     68        %integer exp, sym
_imp_current_line = 68; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 68 "regression-bugs-tmp/mouses-print.imp"
int EXP;
#line 68 "regression-bugs-tmp/mouses-print.imp"
int SYM;
                                                                //     69        p = 7 %if p > 7
_imp_current_line = 69; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 69 "regression-bugs-tmp/mouses-print.imp"
if (((P) <= (7))) goto L_0019;
#line 69 "regression-bugs-tmp/mouses-print.imp"
P = 7;
#line 69 "regression-bugs-tmp/mouses-print.imp"
L_0019:;
                                                                //     70        %if r < 0 %then sym = '-' %and r = -r %else sym = ' '
_imp_current_line = 70; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 70 "regression-bugs-tmp/mouses-print.imp"
if (((R) >= (0))) goto L_001a;
#line 70 "regression-bugs-tmp/mouses-print.imp"
SYM = 45;
#line 70 "regression-bugs-tmp/mouses-print.imp"
R = (-(R));
#line 70 "regression-bugs-tmp/mouses-print.imp"
goto L_001b;
#line 70 "regression-bugs-tmp/mouses-print.imp"
L_001a:;
#line 70 "regression-bugs-tmp/mouses-print.imp"
SYM = 32;
#line 70 "regression-bugs-tmp/mouses-print.imp"
L_001b:;
                                                                //     71        %if r = 0 %start
_imp_current_line = 71; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 71 "regression-bugs-tmp/mouses-print.imp"
if (((R) != (0))) goto L_001c;
                                                                //     72           exp = -99
_imp_current_line = 72; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 72 "regression-bugs-tmp/mouses-print.imp"
EXP = (-99);
                                                                //     73        %else
_imp_current_line = 73; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 73 "regression-bugs-tmp/mouses-print.imp"
goto L_001d;
#line 73 "regression-bugs-tmp/mouses-print.imp"
L_001c:;
                                                                //     74           exp = 0
_imp_current_line = 74; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 74 "regression-bugs-tmp/mouses-print.imp"
EXP = 0;
                                                                //     75           exp = exp + 1 %and r = r / 10 %while r >= 10
_imp_current_line = 75; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 75 "regression-bugs-tmp/mouses-print.imp"
L_001e:;
#line 75 "regression-bugs-tmp/mouses-print.imp"
if (((R) < (10))) goto L_001f;
#line 75 "regression-bugs-tmp/mouses-print.imp"
EXP = (((int)(EXP)) + (1));
#line 75 "regression-bugs-tmp/mouses-print.imp"
R = (double)((double)((float)(R)) / (double)((float)(10)));
#line 75 "regression-bugs-tmp/mouses-print.imp"
goto L_001e;
#line 75 "regression-bugs-tmp/mouses-print.imp"
L_001f:;
/*Warning: potential loss of precision converting from integer AST_ICONST (10 - 4 bytes) to real AST_VAR (R - 4 bytes) detected at ast.c line 108 */
                                                                //     76           exp = exp - 1 %and r = r * 10 %while r < 1
_imp_current_line = 76; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 76 "regression-bugs-tmp/mouses-print.imp"
L_0021:;
#line 76 "regression-bugs-tmp/mouses-print.imp"
if (((R) >= (1))) goto L_0022;
#line 76 "regression-bugs-tmp/mouses-print.imp"
EXP = (((int)(EXP)) - (1));
#line 76 "regression-bugs-tmp/mouses-print.imp"
R = ((R) * ((float)(10)));
#line 76 "regression-bugs-tmp/mouses-print.imp"
goto L_0021;
#line 76 "regression-bugs-tmp/mouses-print.imp"
L_0022:;
                                                                //     77        %finish
_imp_current_line = 77; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 77 "regression-bugs-tmp/mouses-print.imp"
L_001d:;
                                                                //     78        round(r, p)
_imp_current_line = 78; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 78 "regression-bugs-tmp/mouses-print.imp"
ROUND(&R, P);
                                                                //     79        exp = exp + 1 %and r = r / 10 %if r >= 10
_imp_current_line = 79; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 79 "regression-bugs-tmp/mouses-print.imp"
if (((R) < (10))) goto L_0024;
#line 79 "regression-bugs-tmp/mouses-print.imp"
EXP = (((int)(EXP)) + (1));
#line 79 "regression-bugs-tmp/mouses-print.imp"
R = (double)((double)((float)(R)) / (double)((float)(10)));
#line 79 "regression-bugs-tmp/mouses-print.imp"
L_0024:;
                                                                //     80        s = s . tostring(intpt(r) + '0')
_imp_current_line = 80; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 80 "regression-bugs-tmp/mouses-print.imp"
S = _imp_join((_imp_string)S,(_imp_string)_imp_TOSTRING((((int)(_imp_INTPT(R))) + (48))));
                                                                //     81        fraction(r, p, s)
_imp_current_line = 81; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 81 "regression-bugs-tmp/mouses-print.imp"
FRACTION(R, P, &S);
                                                                //     82        s = s . "@" . itos(exp, 0)
_imp_current_line = 82; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 82 "regression-bugs-tmp/mouses-print.imp"
S = _imp_join((_imp_string)_imp_join((_imp_string)S,(_imp_string)_imp_str_literal("@")),(_imp_string)_imp_ITOS(EXP, 0));
                                                                //     83        %result = s
_imp_current_line = 83; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 83 "regression-bugs-tmp/mouses-print.imp"
return S;
                                                                //     84     %end
_imp_current_line = 84; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 84 "regression-bugs-tmp/mouses-print.imp"
_imp_endofblock: ;
} // End of block FTOS at level 3
                                                                //     85     printstring(ftos(r, places))
_imp_current_line = 85; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 85 "regression-bugs-tmp/mouses-print.imp"
_imp_PRINTSTRING(FTOS(R, PLACES));
                                                                //     86  %end
_imp_current_line = 86; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 86 "regression-bugs-tmp/mouses-print.imp"
return;
_imp_endofblock: ;
} // End of block MOUSESPRINTFL at level 2
                                                                //     87  
                                                                //     88  %endofprogram
_imp_current_line = 88; _imp_current_file = "regression-bugs-tmp/mouses-print.imp";
#line 88 "regression-bugs-tmp/mouses-print.imp"
return 0;
_imp_endofblock: ;
} // End of block _imp_main at level 1
#line 88 "regression-bugs-tmp/mouses-print.imp"
// End of file