to runden :x
  ifelse ( (abs (:x - int :x)) < 0.5) [
    output (vorzeichen :x) * (int abs :x)
   ] [
    output (vorzeichen :x) * ((int abs :x)+1)
   ]
end