get;
my@a=words get;
my$g=[gcd] @a;
say join ':',map {$_/$g},@a