a;.":"b;."="a;0<(_a:d+)b;0<(_b:d+)d;1=("-") a;b;/."."a;b;%m:c;[m;10*b;/.m;10*b;%m:c-;]