©マグメルインプ Ver1.01  thanks to  PerlMemo