(when (and (defined? 'mred:frame%) (defined? 'mred:console))
  (printf "ee~n"))