distance.m

:- module distance.

:- interface.

:- import_module io.

:- pred main(io::di, io::uo) is det.

:- implementation.

:- import_module float.

:- type feet == float.
:- type meters == float.

main(!IO) :-
    F:feet = 3.0,
    M:meters = 3.0,
    F = M ->
        print("Feet Equals Meters!\n", !IO)
    ;
        print("Feet and Meters are not the same!\n", !IO).