回文検出ワンライナー

while read n; do  m=""; for i in $(seq ${#n} -1 0); do  m=$m${n:$i:1}; done  ; [ "$m" == "$n" ] && echo $m; done < kaibun.txt