pro fib, x, char=char
  if n_elements(char) eq 0 then begin
    f=1 & s=1
    print, f
    print, s
    while(f+s le x) do begin
        c=f+s
        s=f
        f=c
        print, f
     endwhile
  endif
 if n_elements(char) eq 1 then  begin
    f=string(char)
    s=string(char)
   print, string(f)
   print, string(s)
   b=f+s
    while(strlen(b) le x) do  begin
     b=f+s
     s=f
     f=b
     print, f
    endwhile
 endif
end
;YES I FINALLY DID IT YES!!! IT WORKS I AM SO HAPPY!!!!!