print "F sequence:";
for i = 0 to 20
  print f(i);" ";
next i
print :print "M sequence:";
for i = 0 to 20
  print m(i);" ";
next i
end

function f(n)
 f = 1
 if n <> 0 then f = n - m(f(n - 1))
end function

function m(n)
 m = 0
 if n <> 0 then m = n - f(m(n - 1))
end function