vextoly/cryn

[# an integer literal does not join a float path: representations differ #]
define main
  make float64 f
  make int64 n
  set 1
  move n
  write
  set 0
  mark top
  move n
  read
  compare 0
  jump small when less
  set 7
  jump join
  mark small
  set 1.5
  mark join
  move f
  write
  stop
end