RosettaCodeData/Task/Variables/Forth/variables-2.fth

: hypot { a b -- a^2 + b^2 }      \ text between "--" and "}" remains commentary
  a a * b b * + ;