gets a=gets 1while sub! /(\w)(.{#{~/$/}})\|/m,'|\2\1' puts$_,a