無限ループ、Pascal教徒なのでwhile true do beginなのでwhile派＞＜（？）