; 1. Möglichkeit, greift auf potenz.lg zurück
to geometrischefolge :a :q :n
  output :a * potenz :q (:n-1)
end
load "potenz.lg

; 2. Möglichkeit
to geometrischefolge :a :q :n
  ifelse (:n > 1) [
     output :q * (geometrischefolge :a :q (:n-1))
  ] [
     output :a
  ]
end