-- yukicoder My Practice -- author: Leonardone @ NEETSDKASU main = interact $ (!!) ("NO": repeat "YES") . length . filter (== "LOVE") . map (take 4) . zipWith drop [0..51*51] . repeat