gets;a=[0]+$<.map(&:to_i);puts a.each_cons.all?{|x,y|(x-y).abs==1}?:T: :F