RosettaCodeData/Task/Function-composition/Lingo/function-composition-4.lingo

-- in some movie script
on asin (x)
  res = atan(sqrt(x*x/(1-x*x)))
  if x<0 then res = -res
  return res
end

on double (x)
  return x*2
end

on triple (x)
  return x*3
end