program SimpleContinuedFractions;

uses crt;

var
  infile,outfile:text;
  x:integer;
  num, denom, temp: integer;
  greatestCD: integer;

function gcd(n,d:integer):integer;
  begin
    if d=0 then
      gcd:=n
    else
      gcd:=gcd(d,n mod d);
  end;

begin
  assign(infile,'DATA31.txt');
  reset(infile);
  assign(outfile,'OUT31.txt');
  rewrite(outfile);
  for x:=1 to 5 do
    begin
      readln(infile,num);
      readln(infile,denom);
      greatestCD := gcd(num,denom);
      num := num div greatestCD;
      denom := denom div greatestCD;
      write(outfile,num div denom,',');
      num := num mod denom;
      while num<>1 do
        begin
          temp := num;
          num := denom;
          denom := temp;
          write(outfile,num div denom,',');
          num := num mod denom;
        end;
      writeln(outfile,denom);
    end;
  close(infile);
  close(outfile);
end.