Edinburgh IMP77 Compiler - Version 8.4

    1  %begin
    2    %real N = -3.73
    3    print fl(FRAC PT(N), 3) ; new line
    4  %endofprogram

    5 Statements compiled