get;my@a=words;say <T F>[?sum 1 X-(0,|@a Z-@a)>>.abs]