change TimeMachine{price ::Float } -> TimeMachine{tPrice :: Float} not to duplicate function name