sub GUIfreund {
    use POSIX qw(floor ceil);
    return $_[0] > 0 ? floor($_[0]) : ceil($_[0]);
}